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FOREWORD 

This User's Guide discusses High Level Assembler Language (HLAL) as 
an effective programming tool for developing computer software more 
efficiently. It is intended for all programmers having basic knowledge of 
OS/360 Assembler Language. 

Part I of this guide presents some of the basic ideas of Dr. Harlan Mills 
on structured programming. However, only those ideas applicable to the 
RTCC environment have been incorporated in HLAL. Therefore, this section 
is intended only to provide general background information supportive of the 
guidelines and detailed formulation of HLAL. 

Part II discusses these guidelines in detail and provides a functional 
description of HLAL components. Included in the discussion are MACRO 
formats since HLAL makes extensive use of the OS/360 Assembler MACRO 
facilities and is essentially a MACRO language. 

All sections are identified by a one-digit number in the upper righthand 
corner of the page. In Section 3 of Part II, the appropriate MACRO name has 
been added. These MACRO definitions are filed alphabetically and are page- 
numbered within to facilitate updating. Pages in all other sections are 
numbered consecutively. 

Only current documentation is maintained in this book. All previous 
versions will be deleted as they become obsolete and filed in Records 
Retention. Any additions or changes to this guide may be directed to Will 
Taylor at 333-3300, extension 35 19. 
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1. PRECISION PROGRAMMING 



1. 1 COMPLEXITY AND PRECISION IN PROGRAMMING 

The digital computer has introduced a need for highly complex, precisely- 
formulated, logical systems' on a scale never before attempted. Systems may 
be large and highly complex, but if human beings, or even analog components, 
are intrinsic in them, then various error tolerances are possible, which such 
components can adjust and compensate for. However, a digital logic system, 
hardware and software, not only makes the idea of perfect precision possible - - 
it requires perfect precision for satisfactory operation. This complete 
intolerance to the slightest error gives programming a new character, unknown 
previously, in its requirements for precision on a large scale. 

The combination of this new requirement for precision, and the commercial 
demand for computer programming on a broad scale has created many false 
values and distorted relationships in the past decade. They arise from intense 
pressure to achieve complex and precision results in a practical way without 
adequate theoretical foundations. As a result, a great deal of programming 
today uses people and machines highly inefficiently, as the only means presently 
known to accomplish a practical end. 

It is universally accepted today that programming is an error-prone activity. 
Any major programming system is presumed to have errors in it. Only the 
very naive would believe otherwise. The process of debugging programs and 
systems is a mysterious art. Indeed, more programmer time goes into 
debugging than into program designing and coding in most large systems. But 
there is practically no systematic literature on this large undertaking. While 
a source of constant and deep frustration, such errors are nothing new in 
programming. They have always been there, from the very first days. 

Yet, even though errors in program logic have always been a source of 
frustration, even for the most careful and meticulous, this may not be neces- 
sarily so in the future. Programming is very young as a human activity - - 
some twenty years old. It has practically no technical foundations yet. Imagine 
engineering when it was twenty years old. Whether that was in 1620 or 1770, 
it was not in very good technical shape at that stage either ! As technical 
foundations are developed for programming, its character will undergo radical 
changes. 
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We contend here that such a. radical change is possible now - - that the 
techniques and tools are at hand to permit an entirely new level of precision 
in programming. This new level of precision will be characterized by programs 
that ordinarily execute properly the very first time they are ever run. But to 
accomplish that level of precision, programming standards and disciplines will 
be required of an entirely new scope and depth, as well. 

Note, here, the objectives of such precision in programming deal with 
execution, rather than assembly/compilations. Some improvement may be 
noticeable in reducing syntax errors, but assembler s /compiler s can find syntax 
errors already. It is the program logic errors at the system level which can 
be practically eliminated from programming today. 

1.2 KEY TECHNICAL PRINCIPLES 

There have been, from the beginning of programming activities, certain 
principles from general systems theory that good programmers have identified 
and practiced in one way or another. These include developing systems designs 
from a gross level to more and more detail until the detail of a computer is 
reached, of dividing a system into modules in such a way that minimal inter- 
action takes place through module interfaces, of creating standard subroutine 
libraries, and using high level programming languages for the coding process. 

Precision in programming will see a reapplication of these classical 
ideas, such as program modularity and clean interface construction. However, 
there are also two key principles, which are new in their application to 
programming, that will play a major role in the implementation and exploitation 
of these ideas. These principles are based on new mathematical results, one 
graph- theoretic, one function-theoretic in character. 

The first key technical principle is that the control logic of any program 
can be designed and coded in a highly structured way. In fact, we shall see 
that arbitrarily large and complex programs can be represented by iterating 
and nesting a small number of basic and standard control logic structures. 

This principle has an analogue in hardware design where it is known 
that arbitrary logic circuits can be formed out of elementary "and", "or", 
and "not" gates. This is a standard in engineering so widespread it is taken 
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for granted. But LI is based on a theoreni in Boolean algebra that arbitrarily 
complex logic functions can be expressed in terms of "and", "or" and "not" 
operations. As such, it represents a standard based on a solid theoretical 
foundation. It does not require add hoc justification, case by case, in actual 
practice. Rather, it is the burden of a professional engineer to design logic 
circuits out of these basic components. Otherwise, considerable doubt would 
arise about his competence as an engineer. 

A practical application of this first principle is writing "structured" 
programs - - e. g. GOTO-free PL/l programs (Dijkstra 1968). In PL/l, 
the branching control logic can be defined entirely in terms of DO loops, IF- 
THENELSE and ON statements. The resulting code can be read strictly from 
top to bottom, typographically, and is much easier understood thereby. It 
takes more skill and ajialysis to write such code, but its debugging and main- 
tenance is greatly simplified. Even more importantly, such structured 
programming can increase a single programmer's span of detailed control 
and productivity by a large amount. Here as in circuit design, a theoretical 
result puts the burden on the programmer to produce GOTO-free code, rather 
than on case by case demonstrations by technical management. 

The second key technical principle is that programs can be coded in a 
schedule that requires no simultaneous interface hypotheses. That is, programs 
can be coded in such a way that every interface is defined initially and uniquely 
in the coding process itself, and referred to thereafter only in its previously 
coded form. 

This principle has an analogue in the theory of computable functions. A 
key point in characterizing a computable function is that its valuation can be 
accomplished in a sequence of elementary computations, none of which involves 
solving a simultaneous system of equations. Any program which is to be 
executed in a computer can be coded in such an execution sequence. And the 
very fact that the computer evaluates only computable functions means that 
no interfaces can be defined hypothetically and simultaneously in computation. 

In practical application, this second principle leads to "top down" pro- 
gramming where code is generated in an execution precedence form. In this 
case, programmers write job control code first, then linkage editor code, 
then source code. The opposite (and typical implementation procedure) is 
"bottom up" programming, where source modules are written and unit tested 
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to begin with, and later integrated into subsystems and, finally, systems. This 
latter integration process, in fact, tests the proposed solutions of simultaneous 
interface problems generated by lower level programming; and the problems 
of system integration and debugging arise from imperfections of these proposed 
solutions. In a real sense, the usual system integration and debugging process 
seeks to solve sets of complex simultaneous interface equations which are 
created by the very system development process ! Top down programming 
circumvents the integration problem by the coding sequence itself. 

1.3 STANDARDS, CREATIVITY AND VARIA BILITY 

Many reactions to technical standards in programming make a basic 
confusion between creativity and variability. Programming these days is a 
highly variable activity. Two programmers may solve the same problem with 
very different programs. Two engineers asked to design a "half adder" with 
economical use of gates will be much less variable in their solutions, but, in 
fact, no less creative than two programmers in a typical programming project. 
Carried to an extreme, two mathematicians asked to solve a differential 
equation may use different methods of thinking about problems, but will come 
up with identical solutions and still be extremely creative in the process. 

The present programming process is mostly writing down all the things 
that have to be done in a given situation. There are many different sequences 
which can accomplish the same thing in most situations. And this reflects 
itself in extreme variability. A major problem in programming at the present 
time is simply not to forget anything - - that is, to handle all possible cases 
and to invent any intermediate data needed to accomplish the final results. 
Thus, as long as programming is primarily the job of writing everything down 
in some order, it is, in fact, highly variable - - but that, in itself, is not 
creative. 

It is possible to be creative in programming and that deals with far more 
ill-defined questions, such as minimizing the amount of intermediate data 
required, or the amount of program storage, or the amount of execution time, 
etc. Finding the deep simplicities in a complicated collection of things to be 
done is the creativity in programming. Getting a program to run correctly, 
handle all error conditions, etc. , is like getting the ball in all 18 holes on a 
golf course. If you debug long enough, or hit the ball often enough, you get 
done. Only nobody asks in the clubhouse, "Did you get the ball in all 18 holes 
today? " 
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1.4 CONTROLLING COMPLEXITY THROUGH TECHNICAL STANDARDS 

A major purpose in creating new technical standards in programming is to 
control complexity. Complexity in programming seems sometimes to be a 
"free commodity". It does not show up in storage or in throughput time, and 
it always seems to be something that can be dealt with indefinitely at the local 
level. 

In this connection, it is an illuminating digression to recall that 500 years 
ago, no one knew that air had weight. Just imagine, for example, the 
frustrations of a water pump manufacturer then, building pumps to draw 
water out of wells on the "theory" that "nature abhors a vacuum". By 
tightening up seals, one can raise water higher and higher - - five feet, ten 
feet, then 15 feet, and so on, until one gets to 28 feet. But then, mysteriously 
and without seeming reason, no amount of effort avails to go higher. As soon 
as it is known that air has weight and it is, in fact, the weight of a column of 
some 28 feet of water, then the frustration clears up right away. Knowing 
the weight of air allows a better pump design, for example, in multiple stage 
pumps, if water has to be raised more than 28 feet. 

We have a similar situation in programming today. Complexity has a 
"weight" of some kind, but we do not know what it is. We know more and 
more from practical experience that complexity will exact its price in a 
qualitative way, but we cannot yet measure that complexity in operational 
terms. For example, we are soldom able to intelligently reject a program 
module because it has "too many units of complexity in it". These units of 
measure will, in all probability, be in "bits of information". But just how 
to effect the measurements still requires development and refinement. 

Nevertheless, we have qualitative notions of complexity, and standards 
can be used to control complexity in a qualitative way, whether we can 
measure them precisely or not. One kind of standard we can use to control 
complexity is structural, as in the first principle noted above. Then we can 
require that programs be written in certain structural forms rather than 
simply arbitrary complex control graphs generated at a programmer's fancy. 
The technical basis for the standard is to show that arbitrarily complex 
flowcharts can be reformulated in equivalent terms as highly structured 
flowcharts which satisfy certain standards. 
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STRUCTURED PROGRAMS 



2. 1 THE IDEA OF STRUCTURED PROGRAMS 

We are interested in writing programs which are highly readable, whose 
major structural characteristics are given in hierarchical form. In fact, we 
are interested in writing programs which can be read sequentially Ln small 
segments, usually under a page in length, such that each segment can be 
literally read from top to bottom, with complete assurance that all control 
paths are visible in the segment under consideration. 

There are two main requirements through which we can achieve this goal. 
The first requirement is GOTO-free code, i. e. , the formulation of programs 
in terms of a few standard and basic control structures, such as IF-THEN- 
ELSE statements, DO loops, CASE statements, DECISION tables, etc. , with 
no arbitrary jumps between these standard structures. The second requirement 
is library and macro substitution facilities, so that the segments themselves 
can be stored under symbolic names in a library and the programming language 
permits the substitution of any given segment at any point in the program 
by a macro-like call. 

PL/I in OS/360 has both the control logic structures, and the library and 
macro facilities necessary. Assembler Language in OS/360 has the library 
and macro facilities available and a few standard macros can furnish the 
control logic structures required. 

We will develop later a theoretical basis for programming without 
arbitrary jumps (i. e. , without GOTO or RETURN statements) using only a set 
of standard programming figures, such as mentioned ab >ve. At the presort 
time, we take such a possibility for granted, and note that any program, vhether 
it be one page or a hundred pages, can be written using only IF-THEN-ELSE 
and DO loop statements for control logic. 

The control logic of a program in a free form language, such as PL /I or 
PL360, can be displayed typographically, by line formation and indentation 
conventions. A Syntax- Directed Program Listing - - a formal description for 
such a set of conventions - - is given in (Mills 1970). Conventions often used 
are to indent the body of a DO-END block, such as 
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DO I=J TO K; 
statement 1 
statement 2 

statement n 
END; 

and the clauses of IF-THEN-ELSE statements, such as 

IF X > 1 THEN 

statement 1 
ELSE 

statement 2. 

In the latter case, if the statements are themselves DO-END blocks, the DO, 
END are indented one level, and the statements inside them indented further, 

such as 

IF X > 1 THEN 
DO; 

statement 1 
statement 2 



statement k 



END; 
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ELSE 



DO; 



statement k + 1 



statement n 



END; 



In general, DO- END and IF-THEN-ELSE can be nested in each other indefinitely 
in this way. 

2.2 SEGMENT STRUCTURED PROGRAMS 

Imagine a hundred page PL/l program written in GOTO-free code. Although 
it is highly structured, such a program is still not very readable. The extent 
of a major DO loop may be 50 or 60 pages, or an IF-THEN-ELSE statement 
take up ten or fifteen pages. There is simply more than the eye can comfortably 
take in or the mind retain for the purpose of programming. 

However, with our imaginary program in this structured form, we can 
begin a process , which we can repeat over and over until we get the whole 
program defined. This process is to formulate a one-page skeleton program 
which represents that hundred page program. "We do this by selecting some of 
the most important lines of code in the original program and then filling in 
what lies between those lines by names. Each new name will refer to a new 
segment to be stored in a library and called by a macro facility. In this way, 
we produce a program segment with something under 50 lines, so that it will fit 
on one page. This program segment will be a mixture of control statements 
and macro calls with possibly a few initializing, file, or assignment statements 
as well. 

The programmer must use a sense of proportion and importance in 
identifying what is the forest and what are the trees out of this hundred page 
program. It corresponds to writing the "high level flow chart" for the whole 
program, except that a completely rigorous program segment is written here. 
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A key aspect of any segment referred to by name is that its control should 
enter at the top and exit at the bottom, and have no other means of entry or 
exit from other parts of the program. Thus, when reading a segment name, 
at any point, the reader can be assured that control will pass through that 
segment and not otherwise affect the control logic on the page he is reading. 

In order to satisfy the segment entry/exit requirement, we need only be 
sure to include all matching control logic statements on a page. For example, 
the END to any DO, and the ELSE to any IF . . . THEN should be put in the 
same segment. 

For the sake of illustration, this first segment may consist of some 30 
control logic statements, such as DO- WHILE'S, IF-THEN-ELSE' s , perhaps 
another 10 key initializing statements, and some 10 macro calls. These 10 
macro calls may involve something like 10 pages of programming each, 
although there may be considerable variety among their sizes. 

Now we can repeat this process for each of these 10 segments. Again, 
we want to pick out some 50 control statements, segment names, etc. , which 
best describe the overall character of that program segment and relegate 
further details to the next level of segments. We continue to repeat the process 
until we have accounted for all the code in the original program. Our end 
result is a program, of any size whatsoever, which has been organized into a 
set of named member segments, each of which can be read from top to bottom 
without any side effects in control logic, other than what is on that particular 
page. A programmer can access any level of information about the program, 
from highly summarized at the upper level segments to complete details in the 
lower levels. 

In our illustration, this one hundred page program may expand into some 
hundred and fifty separate segments, because (1) the segment names take up 
a certain amount of space, and (2) the segments, if kept to a page maximum, 
may average only some two-thirds full on each page. Each page should 
represent some natural unit of the program, and it may be natural to only fill 
up half a page in some instances. 
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In the theoretical development carried out below, it will be apparent that 
it is possible to structure any given program much more deeply than that 
called for in maintaining segments to page sizes or less. The additional 
latitude in expanding a necessary half-dozen lines or so into some fifty, 
requires programmer creativity and perspective. It formalizes a process that 
good programmers do well instinctively and poor programmers do not so well. 
But it also standardizes this process of the selection of major from minor 
aspects of a program and allows all programmers to operate on a common base. 

2. 3 CREATING STRUCTURED PROGRAMS 

In the preceding section, we assumed that a large size program somehow 
existed, already written with structured control logic, and discussed how we 
could conceptually reorganize the identical program in a set of more readable 
segments. In this section, we observe how we can create such structured 
programs a segment at a time in a natural way. 

We suppose that a program has been well designed and that we are ready 
to begin coding. We also note a common pitfall in programming is to "lose 
our cool" - - i. e. , begin coding before the design problems have been thought 
through well enough. In this case, it is easy to compromise a design because 
code already exists which is not quite right, but "seems to be running 
correctly"; the result is that the program gets warped around code produced 
ad hoc. We assume that has not happened here. 

Our main point is to observe that the process of coding can take place in 
practically the same order as the process of extracting code from our 
imaginary large program in the previous section. That is, armed with a 
program design, one can write the first segment which serves as a skeleton 
for the whole program, using segment names, where appropriate, to refer 
to code that will be written later. In fact, by simply taking the precaution of 
inserting dummy members into a library with those segment names, one can 
compile or assemble, and even possibly execute this skeleton program, while 
the remaining coding is continued. Very often, it makes sense to put a 
temporary write statement "got to here OK" as a single executable statement 
in such a dummy member. 
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Now, the segments at the next level can be written in the same way, 
referring as appropriate to segments to be later written (also setting up 
dummy segments as they are named in the library). As each dummy segment 
becomes filled in with its code in the library, the recompilation of the segment 
that includes it will automatically produce new updated, expanded versions of 
the developing program. Problems of syntax and control logic will usually be 
isolated within the new segments so that debugging and checkout goes 
correspondingly well with such problems so isolated. 

It is clear that the programmer's creativity and sense of proportion 
can play a large factor in the efficiency of this programming process. The 
code that goes into earlier sections should be dictated, to some extent, not 
only by general matters of importance, but also questions of getting executable 
segments reasonably early in the coding process. For example, if the control 
logic of a skeleton module depends on certain control variables, their declara- 
tions and manipulations may want to be created at fairly high levels in the 
hierarchy. In this way, the control logic of the skeleton can be executed and 
debugged, even in the still skeleton program. 

Note that several programmlers may be engaged in the foregoing activity 
concurrently. Once the initial skeleton program is written, each programmer 
could take on a separate segment and work somewhat independently within the 
structure of an overall program design. The hierarchical structure of the 
programs contribute to a clean interface between programmers. At any point 
in the programming, the segments already in existence give a precise and 
concise framework for fitting in the rest of the work to be done. 

2. 4 READING STRUCTURED PROGRAMS 

Reading programs is as much an art today as writing them. There are as 
many ways of reading programs as there are programimers. Our objective is 
to develop a systematic basis for reading, so that the process is as nearly 
repeatable as possible; that is, so that two programmers would go through 
nearly the same activity in reading a given program and record the same set 
of observations about it. 
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As long as programs are the proverbial "bowls of spaghetti", there is 
little systematic that can be introduced into reading. It is simply a question 
of following threads of control and an a priori enumeration of that control Ls 
usually not practical. But when programs are structured as described above, 
then it is, indeed, possible to give a systematic sequence in which reading 
can be done. This sequence within each segment is strictly from top to bottom, 
noting, of course, the programming effect of the various figures encountered 
which cause branching and looping. The sequence between segments has more 
possible variety. These sequences correspond to alternatives available in 
conducting a tour through a tree. Systematic tree tours can be easily imagined 
in top down, bottom up, left to right forms, etc. For example, in a top 
down tour, one examines first the top node, then the nodes connected to that 
top node, then each of the nodes connected to the latter nodes, etc. , until one 
has found all the nodes of the tree. 

It is likely that both top down and bottom up tours will be useful in reading 
structured programs. When a programmer is trying to get acquainted with 
a program it seems that a top down reading sequence will be most instructive, 
so that the program unfolds much as it does in the writing process. However, 
when a programmer, or set of programmers, wants to do a thorough job of 
validating a program through reading, then it appears that a bottom up tour 
may be an effective way of proceeding. Each segment so read in the bottom 
up tour can be characterized as a checkpoint in the reading process so that 
the segments above which call on it will then be verifiable by using checkpoint 
information on the segments they name. 

In this connection, it is important to observe that because of its one-in, 
one-out control character, a segment induces a change of state in the programming 
system and transfers control to the next line in the segment naming it. This 
change of state will be represented in changed data values in two categories 
of data; those internal to the segment (and therefore of no interest to the segment 
naming it) and data external to the segment. It is this external data that, when 
characterized, permits the segment to be read and its effects noted simply by 
name. 

It is also evident that program segments, as we have defined them, are 
natural units of documentation and specification. In fact, the specification of 
a segment is the best means of accessing its function at higher levels in the 
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programming system. In this case, a reading checkpoint should contain the 
assertion that the segment carries out its specification correctly, subject, of 
course, to its named segments carrying out their specifications correctly as 
well. Now, if one begins at the bottom, verifies each segment carries out its 
specification and progresses upward, one can finally arrive at the full program 
as it has been checkpointed, and an opinion about its correctness. 

Note again, as in the programming process, that this reading process 
can involve several programmers concurrently with the joint results being 
a-ggrega-ted at higher levels into a final opinion about the program's correct- 
ness. Note also, unlike writing programs which seemingly have to be done 
by a single programmer, several programmers can be reading the same 
segments simultaneously to arrive at independent conclusions about their validity. 
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THE STRUCTURED PROGRAMMING PROCESS 



3. 1 FUNCTIONAL SPECIFICATIONS 

We define a functional specification to correspond to the mathematical 
idea of a function, namely, a mapping of inputs into outputs, without regard to 
how that mapping is to be accomplished. In practical terms, of course, one 
has to have some underlying ideas on techniques and algorithms that are 
possible, in order to write a feasible functional specification. For example, 
we simply cannot formulate impossible computing processes as functional 
specifications without any hope of implementing them. 

However, the general situation in programming system development is 
that the functional specifications are rather large and complex, simply to 
write them down. In illustration, the input and output messages and codes of 
a large information retrieval system may run to hundreds, or even thousands 
of pages. Because of this, functional specifications are seldom complete as 
mathematical descriptions, but nevertheless, the mathematical model is an 
ideal that we have in mind when we speak of functional specifications. 

There is an additional advantage in defining a functional specification to 
correspond to the idea of a mathematical function. It represents a platform 
from which several independent alternative algorithmic approaches might be 
explored, even by different groups for later comparison and selection. It 
permits parallel efforts to an objective that is independent of the means. 

Ordinarily, the development of functional specifications interact with the 
process of program design to achieve those specifications. In unique, highly 
specialized systems, program design may have a significant feedback to 
functional specifications to reflect certain opportunities available in hardware 
architecture or in a programming technique which the ultimate user can adapt 
to his needs in the programming system. For example, ultimate users can 
often view information systems in various, almost equivalent ways. In such 
cases, a particular indexing system already available may well affect the 
functional specifications for that user system. 
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3.2 FUNCTION EXPANSIONS 

We have noted above that the top down programming process represents 
a step by step expansion of a mathematical function into simpler mathematical 
functions, using BLOCK, IF-THEN- ELSE, DO-WHILE, CASE, or DECISION 
statements as elementary structural devices. Such a programming process is 
easy to visualize with these constructs. Given a functional specification to be 
expanded by one step, we ask the question, "What elementary program state- 
ment can be used to expand the function?" The expansion chosen will imply 
one or more subsequent functional specifications, which arise out of the original 
specification. These new functional specifications can each be treated exactly 
as the original functional specification and the same questions posed about them. 

As a result, the top down programming process is an expansion of 
functional specifications to simpler and simpler functions until, finally, state- 
ments of the programming language are reached. The beginnings of such a 
process is shown below, expanding the functional specification "Add member 
to library". Such a functional specification will require more description, 
but the breakout into subfunctions by means of programming statements can 
be accomplished as indicated here. 

f - "Add member to library" (specification) 

f = (BLOCK, g, h) (expansion) 

g = "Update library index" (subspecification) 

h = "Add member text to library text" (subspecification) 

g = (IF-THEN-ELSE, p, i, j) (expansion) 

p = "Member name is in index" (subspecification) 

i = "update text pointer" (subspecification) 

j = "Add name and text pointer to index" (subspecification) 



etc. 



IBM 



NAS9-9M 



Real Time Computer Complex 



3. 

Dot* 



3/20/72 



Book: 



High Level Assembler Language User's Guide - Part I 



^og% 3-3 



f = IF "Member name is in index" THEN 



(restatement of two 



tl 



Update text pointer 



It 



levels of expansion) 



ELSE 



"Add name and text pointer to index 



"Add member text to library text 



It 



3. 3 PROGRAM DESIGN 

Good programmers have always organized large programming systems into 
a succession of subsystems of increasing detail with minimal interconnections 
between the subsystems. They also identify common subprocessing activities, 
if present, and formulate these as subroutines to be called throughout the 
programming system. We follow these ideas, sharpen them in some ways, 
because of the structured programs we intend to create. 

First we make a distinction between subprograms which are created 
for structuring the system, and subprograms which carry out common low- 
level processing functions in many places in the system. The latter set of 
subprograms we isolate first, and append to the programming language itself, 
just as sine or exponential routines are regarded as part of PL/l or Fortran. 
These subprograms are documented and considered as part of the language 
description in which programmers write the programming system. It is 
natural to make these subprograms completely self-sufficient with respect to 
data, that is, to use no data from their environment except that passed explicitly 
in the arguments of their calls, Such subprograms may, in fact, be extensive 
and have their own private environment, e.g. , it is conceivable that a sub- 
program accessed only by calls with explicit arguments may still access large 
masses of data in their execution, and that even large masses of data be 
identified in their argument list. But, nevertheless, the concept of data 
independence from the rest of the programming system is held. 

The other type of subprogram which is used to help structure a system will 
ordinarily appear only once as a call from some other program. In this case, 
we use no arguments for the subprogram call, but let the communication between 
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programs be based entirely on data structures that both programs are aware 
of. Ordinarily, these data structures will be nested to correspond to the 
nesting structure of the programs themselves, and data scopes will be made as 
low as possible to localize their range of validity. 

The process of program design is much influenced by the structured 
programs that are to result. For example, in defining a subsystem and the 
immediate constituents of that subsystem as smaller subsystems, one seeks 
enough control logic to fill up a page of conventional code, but not so much 
as to overflow pages. It takes some practice to accomplish this, but after 
some practice, it becomes easier than it might look to organize an entire 
programming system into a hierarchy of subsystems which are page-like 
segments in their final code. If, in the coding process, the coding estimates 
are greatly missed, some rethinking on the program design should be done 
and recoding carried out accordingly, 

3. 4 PROGRAM CODING 

At the point in time when one is coding a segment, one has, in top down 
programming, sufficient information to write that segment correctly from 
code in higher levels which have already been written in order to reach this 
point of the coding. It is good practice to verify the code as it is written, for 
logical consistency, with previous code in terms of definitions, exact names, 
etc. , line by line. Ordinarily, programmers do not imagine this kind of 
verifieatLon is really necessary, and rely on their short-term memories to 
put together and integrate sections of code written in a non-time -structured 
way. But there is nothing so sobering as programming in this way, discovering 
how often the short-term memory fails, and reflecting on how much additional 
debugging would have been necessary because of these failures. Programming 
today takes such additional debugging for granted, but it is not a necessary 
activity. 
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1. CONCEPTS 

All frequently used segments of code are generated by MACROs. These 
include those that are common to all applications and those that fulfill individual 
requirements of each application. All MACROs are coded such that: 

(a) They are self- documenting 

(b) They are written to process higher level language type statements 

(c) The code that is generated to perform a given function is optimized 
and debugged when the MACRO is originally written, such that coding 
errors are reduced, resultant code is more efficient and the function 
does not have to be redesigned and rewritten each time it is used. 

IF BIT,X,IS, ON, THEN 

\ 1 

ELSE 
ENDIF 

The connmon set of MACROs contains MACROs that define the beginning 
and ending block segments used for programming in the structured form. 

IF P THEN type: dual path decision logic 

A 

ELSE 

B 

ENDIF 




4> 



V 
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1 



UNTIL 

while] 

ENDDO 



DO 



type: looping logic 



J n 



y 



/UNTIL \ 
STRTSRCH (^hILe) 

A 

EXITIF q 
B 

ORELSE 
C 

ENDLOOP 
D 

ENDSRCH 



DO 



type: table search logic 

^ - 



<q> <fe> 



B 



D 

r 



A 

DO X 
B 

DO X 
C 



BGNSEG X 
D 

ENDSEG 



type: common code 





D 





B 



<i) & 
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CASE $5, AT=(A , B, C, D) type: multiple path decision logic 




The common set of MACROs also contain MACROs that will perform both the 
standard logical and mathematical operations. 



OIBIT X 

X BIT 0, ON 

Y BYTE 



- NIBIT 

- XIBIT 

- TMBIT 



After data base is defined, bit manipulation is done without the need of byte 
masks (X '80') 

MATH '((A - B) * (C - D))/E = F' 

mathematical operations. 

The individual application set of MACROs will include MACROs which 
interface with supervisor services. 

GWORK 
RT WRITE 
OPEN 

All application MACROs are tailored to the formats, acronyms and 
language of that application. 

GMCECNTL NAME = SING, INTER VL = 5, CHAIN = LAST 



This is a specialized GSSC Skylab MACRO for resetting execution interval 
of a load module. 
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Except for the guidelines imposed by HLAL any code that can be written 
in basic Assembler Language can be generated with the block structured 
MACROS. 

IF F, ($5), EQ, ($6), THEN 
Register notation in IF MACRO 

IF *„ IS, ZERO, THEN 

Condition code has already been set. 

All frequently used functions too large to expand directly into MACROs 
are designed and programmed as re-entrant routines which are invoked through 
tailored interface MACROs. 



The set of MACROs needed to program a given area of an application are 
of such number that the learning time is relatively short. 

Some form of block structured listing will be automatically produced 
each time a program is updated. (Pre- and post-Assembler Processors) 

The use of HLAL requires as initial investment effort: 

a. Generate the application oriented subset of MACROs (the common 
set are operational) 

b. Educate all application programmers in their use and 

c. Define the user data base and all interfaces with DSECTs and labels. 

Experienced programmers (2 or 3) with extensive knowledge in the basic 
Assembler MACRO Language are needed to perform item a. 
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2. GUIDELINES 

These following guidelines will be followed unless they result in gross 
inefficiencies in code. Any deviations will be discussed with and approved 
by the designated HLAL coordinator. 

a. Should not modify executable code, except for moving a length 
field into a storage to storage instruction. 

b. No conditional or unconditional branching. (The block structured 
MACROS generate all branching instructions.) 

c. No programmer generated labels should be used for branching (the 
block structured MACROs generate all branching labels). 

d. Code in straight forward, readable manner. (Do not get tricky.) 

e. Do not use relative addressing (*+8). Do not use absolute 
displacements 28($5,$6) , use symbolic expressions X - Y ($5, $6) 
or Y($6) . 

f. Reference registers by labels EQUed by HEADC or EQUATE MACROs: 
$0 - $15 for general purpose registers and FPRO - FPR6 for floating 
point registers. 

g. Data base and interfaces are referenced by labels defined in DSECTs. 

These restrictions cause a programmer to generate straight forward code and 
avoid some features of basic Assembler Language that usually cause more 
trouble (excess debugging and non-readability) than they are worth in increased 
execution time efficiency. 
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3. MACRO FORMATS, DEFINITIONS AND EXAMPLES 
The common HLAL MACROs are sub-divided into ten function groups: 



a. Dual-path decision logic: 
IF 

ELSE 
ENDIF 



c. Error checking logic; 

ERREXIT 
ERRENTER 
ERRMSG 
ERRETURN 



e. Common code logic: 
DO 

BGNSEG 
ENDSEG 



g. Entry, exit logic: 

HEADC 
ENTER 
EQUATE 
GRETURN 

i. Mathematical equations: 
MATH 



PRN 
LENGTH 
PARM 



invoked by 
MATH 



b. Looping logic: 

UNTIL 
WHILE 
BGNWHILE 
ENDDO 

d. Table search logic: 

STRTSRCH 

EXITIF 

ORELSE 

ENDLOOP 

ENDSRCH 

f. Multi-path decision logic; 
CASE 



h. Bit manipulation; 

NIBIT 
OIBIT 
TMBIT 
XIBIT 



Data base definition; 

BIT 
BYTE 



IBM -^^-^ 1^^' C^Nnp^ ComptaE 



3. 

Dof« 3/20/72 



Book: High Level Assembler Language User's Guide - Part II 



The formats, definitions, and examples of the MACROs follow, the 
MACROS ordered alphabetically. At the end of the MACRO definitions is a 
one page coding reference sheet for quick referral once a basic understanding 
of the MACROS is attained. 
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NAME - BGNSEG 
DESCRIPTION 

The BGNSEG MACRO generates a label for a section of code to be branched to 
by the DO MACRO. 



BGNSEG SEGMENT, REG 
^SEGMENT DS OH 

where SEGMENT is the name of the label to be generated and REG Is the 
register to be used in returning frorh this segment of code. 

When the BQNSEG MACRO follows a DO MACRO which references it, It will 
use the register specified in the DO macro. If the register is specified in the 
BGNSEG MACRO and it does not agree with the register specified in the previous 
DO MACRO, an error message will be written. 

When the BGNSEG MACRO precedes any DO MACRO reference to it, the 
register will default to $14 unless a register Is specified. 

A maximum of 50 segments may appear in an assembly. Registers need to be 
expressed in notation $1, $2 etc. 

EXAMPLES • 



The format is: 



Example 1 



+COMPUTE 



BGNSEG 
DS 



COMPUTE 
OH 



+ 



ENDSEG 
BR 



COMPUTE 
$14 
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Example 2 



DO CODE, $6 

+ BAL $6, CODE 

BGNSEG CODE 

+CODE DS OH 

\ 

ENDSEG CODE 

+ BR $6 
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NAME - BGNWHILE 

DESCRIPTION 
(BGNWHILE (no operands)) 

The BGNWHILE macro will cause execution of a WHILE loop to begin at the 
instruction immediately following the BGNWHILE macro. This macro should 
be preceded by a WHILE macro and succeeded by an ENDDO macro. Normally, 
a WHILE loop begins at the ENDDO macro by checking the condition specified 
in the WHILE macro. 

The following example illustrates how a BGNWHILE would be used to start 
execution of a loop between the WHILE and ENDDO macros. 



Without BGNWHILE 



With BGNWHILE 



Instruction Sequence 



A 



WHILE ( B 



), DO 



WHILE ( B 



). DO 



C 




A 



BGNWHILE 



ENDDO 



ENDDO 



IBiM 



NAS9-9M 



Book: High Level Assembler Language User's Guide 



Real Time Computer Complex 

3. BGNWHILE 
Ooto 3/20/12 
R«v 

Part II 3-2 





IBM.„^ Real Time C<HnputerC<Nnplex 

3. BIT , ■ 
Dafftt 3/20/72 

Book: High Level Assembler Language User's Guide - Part II ^^9* 3-1 (of 3) 



NAME - BIT 
DESCRIPTION 

The purpose of the BIT macro is to generate a data base definition whose length 
can be used as a key to test or manipulate a specific bit in a byte« 

DEFINITION 



symbol 


BIT 


j^^it number, or list of bit 








J numbers, or binary 8- bit 








1 configuration ^ 








[.on] 





where 

• symbol any valid non-blank label. If omitted, an error 

condition will be raised with a condition code of 12. 

• bit number -- an unsigned decimal integer, 0 through 7, representing 

standard bit notation. 

• list of bit numbers a list of bit numbers separated by commas. 

The entire list must be enclosed by parenthesis. 

• binary 6-bit configuration notation of the form B'XXXXXXXX', where 

X is 1 if the corresponding bit is to be represented 

by this label and X is 0 if the corresponding bit is 
not to be represented by this label. 

• ON indicates the bit or bits indicated in the first 

operand are to set to 1 in a global variable which 
is passed to the BYTE macro. 
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FUNCTION 

The BIT macro performs its operations as follows: 

• checks to see if there is a valid non-blank label attached to the macro. 

• processes the information passed by the first operand, checking each 
time for an invalid bit number or binary character. 

• generates a DS and ORG statement to establish a length which can be 
used to test or manipulate bit(s), and reset the location counter setting. 
(There is an exception to this --if the name of the CSECT currently 

being processed starts with SCDB, the DS and ORG 
statement will not be generated. 

EXAMPLES OF THE USE 

The following are included to give the user a feeling of what can and cannot 
be done with the BIT macro; 

Example 1 



r 



NAME 
FIRST 

+FIRST 



I 



OPERATION 
BIT 

DS 
ORG 



OPERANDS 

0 

XL(B'IOOOOOOO') 
♦-B'lOOOOOOO' 



Example 2 



NAME 



I SECOND 
I 

I +SECOND 
U 



OPERATION 

I BIT 
I 

J DS 

I ORG 



OPERANDS 



(0, 1, 5, 7), ON 

XL(B'llOOOlOl') 
♦-B'llOOOlOir 



Note: In the above example, specifying 'ON' had ni* effect upon the 
expansion of the macro. 
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NAME 
THIRD 



Example 3 
OPERATION 



I BIT 

I +THIRD ^ DS 
^ ORG 



OPERAND 

B'OOllllOO' 

XL(B'OOllllOO') 
♦-B'OOllllOO' 



The following examples would raise error conditions: 



CODING 


CAUSE OF ERROR 


NAME 


OPERATION 


OPERAND 






BIT 


0 


name field blank 


ONE 


BIT 


0, 1,2 


operand not enclosed in 
parentheses 


TWO 


BIT 


8 


operand is greater than 7, does 
not satisfy standard bit 
notation 


THREE 


BIT 


'01010101' 


improper binary notation, 
should be B'OIOIOIOI' 


FOUR 

-• ■„■ • ■ „ 


BIT 


,ON 


first operand missing 



GENERA L NOTES 

• All errors detected by the BIT macro will raise a condition code of 12 
and result in the termination of processing by the macro. No DS and ORG 
will be generated unless the operand(s) are valid. 



• Specifying 'ON' is used only in conjunction with the BYTE macro. Nothing 
is gained by the user in using this if the BYTE macro is not also inclwled i? 
in his program.;^' 
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NAME - BYTE 



DESCRIPTION 



The purpose of the BYTE macro is to generate a data base definition using 
either information passed from previous calls of the BIT macro or a parameter 

on the BYTE macro. 

DEFINITION 



symbol 



BYTE 



one byte hex value 



where 



• the operand maybe blank, or 

• the operand is a value hexadecimal number (range is from Oj^g to 255^q) 
i. e. , X'FF'. 



FUNCTION 

The BYTE macro performs its operations as follows: 

• exannines the operand to determine whether or not it is null. 

• if the operand is null, the BYTE macro builds a DC using information 
passed from previous calls of the BIT macro, 

• if the operand is present, BYTE generates a DC statement using tiiis 
parameter. 
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EXAMPLES OF THE USE 
Use with a non-blank parameter. 



NAME 



FIRST 
f FIRST 



^ O PERATION 
I BYTE 



Use in conjunction with the BIT macro 



OPERAND 

X'CF' 
X'CF' 



"1 
J 



u 



NAME 



OPERATION 





BIT! 


j Bit 


+ 


BITl 


' DS 


+ 




1 ORG 




BIT3 


BIT 




BIT 3 


1 DS 


+ 




ORG 




BIT 5 


1 BIT 


+ 


BIT5 


, DS 


+ 




1 ORG 




BIT78 


1 BIT 


+ 


BIT 78 


1 DS 


+ 




1 ORG 




ALL 


1 BYTE 


+ 


ALL 


DC 



OPERAND 



0 

XL(B'IOOOOOOO') 

*-B'10000000' 

2.01^ 

XL(B'OOIOOOOO') 

*-B'00100000' 

B'0000I000',Om 

XL(B'OOOOIOOO') 

*-B'00001000') 

(6,7),OW 

XL(B'OOOOOOir) 

♦-B'OOOOOOll' 

B'OOlOlOll' 



"1 

I 

1 
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NAME - CASE 
DESCRIPTION 

the purpose of this macro is to generate the code necessary for certain, 
frequently encountered, decision table type processing logic. In this type of 
processing one usually has a case (index) number In some GPR and desires 
to execute one of a list of options (cases) based upon the value of the case 
number in the GPR. The following block diagram shows the basic flow of this 
type of logic: 



i 



Case #0 



Processing 

for 
case #0 




Case #1 



Processing 

for 
case #1 



Continue 
Processing 



I 



Casefl 



Processing 

for 
case #2 



L.. 
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In this macro it is assumed that the increment between the case numbers is 
a power of two (i.e. , 1 , 2, 4, 8, . . . ) and that the cases are numbered 
starting with zero. It should be noted that CASE loads the specified RETREG 
with the address of the instruction following the macro before branching to the 
determined case; and, it is the responsibility of each case to return to the 
address specified in the RETREG (if the requirements of structured coding 
are to be fulfilled). The following shows the formats of the CASE macro; 




case register, , AT = (address list) xp**,^*, i_ T 
«m / T I ,INDX=number| 

BT = (address list) LI -J 

(R) 

LAT = addr. 
(R) 

LBT = addr. 



< 



[7 RETREG=r egister) 



case register - 

is the register number (or symbol equated to the register ntimber) of the 
GPR that contains the desired case number. This must not be the same 
register that is used as the RETREG. 

AT - (address list) - 

is a list of up to 255 case labels. This list of case labels is used to 
generate a corresponding list of address constants. When this form of the 
CASE macro expands the case register will be used to index i nto this listof 

ADCONS. inorder to determine whic h cas e is t o be branc hed! to. There is a 

« " ■ • _ — _ - - Ill .III. ^^- 11 I 

one-to-one correspondence between a labels position in the list and its 
associated case number (i.e. , the first label in the list is the name of the 
case which is to receive control when the case register contains a zero. If a 
label is left null an address of zero will be generated for the associated case 
number. (This should be used for any embedded cases numbers, which are 
not expected to occur and which a program check is desired if it ever does 
occur). An * may be coded in place of any of the labels to signify that processing 
is just to continue at the instruction following the macro when the associated 
ca8e(s) occurs. It should be noted that by specifying one or more of the labels 
(used in an AT type expansion) in an EXTRN statement, the CASE macro becomes 
effectively an indexed CALL macro. 
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IBM 



BT = (address list) - 

is a list of up to 255 case labels, as defined for the AT type expansion. 
The only difference between the AT and the BT type expansions is that BT 
generate s a branch table inste ad of an address table for the labels specified. 
I'hl.s permits the use of case laSelT that are not inthe same C5ECT lior^ 
callable, but for which a base register is set up. 

(R) 

LAT = addr. - 

is the address of a remote list address table ^ o be used by CASE in 
determining where to branch for eacn vaiue tnat can be placed in the case 
register. This address may be specified in a register as (R) where R is some 
register number (not being used as a case register or a RETREG). 

(R) 

LET = addr. - 

is the address of a remote list of branch instructions to be used by the 
CASE in branching to the case designated by the value in the case register. 
As in LAT this address may also be specified in a register form. 

INDX = number 

is used to specify the increment used in counting the cases. This must 
be some power of 2 (i.e. , 1, 2, 4, 8, l6, 3 2, . . . ). The default for INDX 
is 4. (This says that the cases are numbered 0, 4, 8, 12, 16, . . . ). 

RETREG = register - 

is used to specify the register to be setup as the linkage register on the 
branch. This is specified as any register number or symbol equated to a 
register number. The default for RETREG is 14. 

EXAMPLES OF USE 



In the following examples NUM is equated to a GPR that contains the case number. 
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XXX 


CASE 


NUM. AT=(*, MUD, , GARB) 


+ 


CNOP 


0,4 


+XXX 


BAL 


14, *+20 


+ 


DC 


A(*+10+4*(4-l)) 




DC 


A (MUD) 




DC 


A(0) 


+ 


DC 


A (GARB) 


+ 


L 


15, 0 (14,NUM) 


+ 


BALR 


14,15 



XXX 


CASE 


NUM, BT = (*;MUD, , GARB) 


+XXX 


LA 


14, *+4+20 


+ 


B 


*+4(NUM) 


+ 


B 


* +4+4* (4-1) 


+ 


B 


MUD 


+ 


DC 


A(0) 




B 


GARB 



XXX 


CASE 


NUM, LAT=($10), RETREG=$8, INDX=1 


+XXX 


SLL 


NUM, 2 


+ 


L 


15,0(NUM,$10) 


+ 


BALR 


$8,15 



XXX 


CASE 


NUM, LBT=MUD, INDX=32, RETREG=$9 


+XXX 


SRL 


NUM.3 


+ 


BAL 


$9, MUD(NUM) 
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NAME - DO 



DESCRIPTION 

The DO MACRO generates a branch-and-link to a segment of code, defined by 
the BGNSEG and ENDSEG MACROs. 

The format of the DO MACRO Is: 

DO SEGMENT, REG 
+ BAL REG, SEGMENT 

where SEGMENT is the label of the section of code to be branched to and 

REG is the register to be used. If the register is not specified, register 14 
will be used. 

If the register to be used in branching to and from a segment has already been 
defined by a previous DO or BGNSEG MACRO, issuing a different register will 
cause an error message to be printed. Registers need to be expressed in 
notation $1, $2 etc. A maximum of 50 segments may appear in an assembly. 

EXAMPLES 
Example 1 

COMPUTE 
$14, COMPUTE 

COMPUTE 
OH 



COMPUTE 
$14 



DO 

+ BAL 

BGNSEG 
+COMPUTE DS 



ENDSEG 
BR 
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Example 2 
+CODE 



DO 
BAL 



BGNSEG 
DS 



ENDSEG 
BR 



1 

DO 



CODE, $6 
$6, CODE 



CODE 
OH 



CODE 
$6 



CODE, $7 



+ 4, **** 



WRONG REGISTER HAS BEEN SPECIFIED 
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NAME - ELSE 
DESCRIPTION 

The function of the ELSE macro is to generate the branch and labels that 
correspond with the branch instructions generated by the IF macro and the 
labels generated by the ENDIF macro. See the IF macro. 
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NAME - ENDDO 



DESCRIPTION 



The function of the ENDDO macro is to generate the Labels that correspond 
to the labels and instructions generated by the WHILE/ UNTIL macros. See 
the WHILE or UNTIL macros. 



UNTIL A, DO 



ENDDO 




ENDDO 



WHILE A, DO 



X 



ENDDO 



WHILE A, AND 
WHILE B,DO 
X 

ENDDO 
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UNTIL A, AND 
WHILE B,DO 
X 

ENDDO 




WHILE A, AND 
UNTIL B,DO 
X 

ENDDO 




UNTIL A, OR 
WHILE B,DO 
X 

ENDDO 




UNTIL A, AND 
UNTIL B,DO 
X 

ENDDO 
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NOTES: In an UNTIL a BCT 
In a WHILE a BCT 



=; yes when the register = 0 after execution of BCT, 
= no when the register = 0 after execution of BCT. 
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NAME - ENDIF 
DESCRIPTION 

The function of the ENDIF macro is to generate the labels that correspond 
with the branch instructions generated by the IF macro. See the IF macro. 
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NAME - ENDLOOP 



DESCRIPTION 

The function of the ENDLOOP macro is to define the end of the loop. See the 
STRTSRCH macro. 
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NAME - ENDSEG 



DESCRIPTION 

The ENDSEG MACRO generates a BR instruction. It is used to return from 
segment of code that has been branch-and-Unked to by the DO MACRO, 

The format is: 

ENDSEG SEGMENT 
+ BR REG 

where SEGMENT is the name of the segment to be terminated and REG 
is the register to be used. The register is determined by either a previous 
DO or BGNSEG MACRO. 

EXAMPLES 
Example 1 

+COMPUTE 

+ 



BGNSEG 
DS 



ENDSEG 
BR 



COMPUTE, $6 
OH 



COMPUTE 

$6 



Example 2 



DO CODE, $7 

+ BAL $7, CODE 

BGNSEG CODE 

+CODE DS OH 

ENDSEG CODE 

+ BR $7 
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NAME - ENDSRCH 
DESCRIPTION 



The function of the ENDSRCH macro is to indicate the end of the complete macro 
set. See the STRTSRCH macro. 
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NAME - ENTER 
DESCRIPTION 

The 'ENTER' macro is used to gen<erate multiple >- entry poilit cod^ The 
macro generates: 

1. One CSECT card (CSECT name = 1st subparameter of the first 
operand. ) 

2. An "ENTRY" card for each entry point 

3. One save area (22wds if 'INTP' appears in col. 1-4)* and 'SAVE' 
code which establishes Rl3 as a base register. 

4. A label to branch to 'RETURN' (label = an 'R' concatenated with 
the CSECT name) 

5. '$0 EQU 0' '$15 EQU 15' so that an XREF is given of Register 

usage if the $XX symbols are used to specify registers. (The 
'EQU's are generated only once per assembly even though more 
than one 'ENTER' is coded. ) 

6. Register 15 is loaded with the address of the code associated 
with the resp. entry point (i. e. , the resp. name specified in the 
second operand sublist - if left blank, '$' is concatenated with the 
resp. entry point specified in the first operand sublist) so that one 
executes 'BR $15' after executing code which is common for all 
entry points. 

EXAMPLE OF USE 

INTP ENTER (X, Y, Z), (, ZINTRNAL) 

SR $7, $7 =1'* FOR LATER USE 

L $12, =V(MGLBAT) 

L $12, $12, 0($12) 

L $10, 4*X'2D' ($12) 

USING SBL2DA, $ 12 

TC INTP 

BR $15 



See Reference 4, for discussion of INTP. 



Real Time Computer Complex 

3. ENTER 
DaU 3/20/72 

Book: High Level Assembler Language User's Guide - Part II ^090 3-2 



$x 


DS 


OH 




GSIN 


A 




STE 


0, B 




B 


GOTIT 


$Y 


GSIN ' 


AA 




STE 


0, B 




ST 


$7.Q 




B 


GOTIT 


ZINTRNAL 


GSIN 


AA 




STE 


0, B 


GOTIT 


EQU 


* 
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NAME - EQUATE 



DESCRIPTION 

The 'EQUATE' macro is used to generate '$0 EQU 0' . . . 
'$15 EQU 15' and 'FPRO EQU 0' . . . 'FPRe EQU 6' statements 
by both the 'HEADC and 'ENTER' macros. In a CSECT which does 
not require a save area (and hence wouldn't use' HEADC or 'ENTER'), 
one may use 'EQUATE' itself to get the EQU's generated. 

EXAMPLE OF USE 



X 

+$0 

+$1 



+$15 

+FPRO 

+FPR2 

+FPR4 

+FPR6 



CSECT 
EQUATE 
EQU 0 
EQU 1 

EQU 15 
EQU 0 
EQU 2 
EQU 4 
EQU 6 

STM $14, $12, 12 ($13) 
USING X, $15 

END 
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NAME - ERRENTER 



DESCRIPTION 



ERRENTER 



8>iA = a symbol not greater than four characters in length. 

The ERRENTER macro should be used to begin a segnic>nt of special 
error processing for a particular error designated by^A, which should 
have been specified in an ERREXIT macro. The segment should end with 
(1) an ERRMSG macro for an error message if one is required, (2) another 
ERRENTER macro for a different error condition, )r { Ui<; ERRETURN 



If the ERRENTER macro is preceded by another ERRENTER macro (with 
no ERRMSG macro between the two), it will expand to a branch to ERRETURN 
prior to defining the error symbol. Otherwise, it will merely expand to a 
definition of the error symbol. 

The following example shows how ERRENTER would be used to process 
special error conditions. 

Suppose there are three error conditions (ERl, ER2, 5), one which 
requires an error message only, one which requires special processing only, 
and one which requires special processing and an error message. The 
following code demonstrates the use of ERRENTER in conjunction with the 
other ERROR MACROS to accomplish these results: 



macro. 



body of csect with ERREXIT macros 
to ERl, ER2,ER3) 



GRETURN 
ERRMSG ERl 

DC C*(error message for erl)' 
ERRENTER ER2 



(special processing for er2) 



ERRENTER ER3 



(special processing for er3) 

ERRMSG 

DC C'(error message for er3)' 
ERRETURN 



GRETURN 




(common error processing) 
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This code would expand as follows: 

^ (body of csect with ERREXIT macros to ERl, ER2,ER3) 

GRETURN 
+ B R&SYSECT 

ERRMSG ERl 
+ERXTER1 BAL 0,ERREXIT$ 

DC C' (error message for erl)' 

ERRENTER ER2 
+ERXTER2 DS OH 

i~ (special processing for er2) 

ERRENTER ER3 
+ B ERREXIT$ 

+ERXTER3 DS OH 

^ (special processing for er3) 

ERRMSG 

+ BAL 0,ERREXIT$ 

DC C (error message for er3)' 

ERRETURN 
+ERREXIT$ DS OH 

^ (common error processing) 

GRETURN 
+ B R&SYSECT 
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NAME - ERRETURN 
DESCRIPTION 



ERRETURN 



The ERRETURN macro expands to a def inLtion of the symbol ERREXIT$. 
The ERRETURN macro should be used to begin common error processing. 
See the ERRENTER macro for examples of its use. 
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NAME - ERREXIT 
DESCRIPTION 



If a symbol is coded for i^A, it must be not greater than 4 characters long 
and it should be the operand of an ERRENTER or ERRMSG macro elsewhere 
in the CSECT. - ^G will be ignored, and the macro will generate a BC 15, 

ERXT (symbol). 

If &A = IF, then the operands &B - &G should be coded exactly as they were 
operands of an IF macro with the exception of S^F. &F is normally 'THEN', 
'AND', or 'OR' in the IF macro, but it should be a symbol not greater than 
four characters long in the ERREXIT macro and the same symbol should be 
the operand of an ERRENTER or ERRMSG macro elsewhere in the program. 

Using ERREXIT in case 2 will expand into the same code that the IF macro 
does except for the BRANCH instruction generated by IF. Instead it will 
generate a BRANCH to the symbol ERXT (symbol) on the condition s pecified 
by the operands &B - StE. (No ENDIF should be associated with an ERREXIT 
macro). 

Example 1: 



ERREXIT &A, &B, &C, &D, ^E, &F, &G 



«.A = 



'IF' 
SYMBOL 



+ 



+ 



ERREXIT IF, F, ($3), IS, ZERO, REGZ 

LTR $3, $3 

BC 8, ERXT REGZ 




ERRMSG REGZ 



+ERXTREGZ BAL 
DC 



0,ERREXIT$ 

C'cannot specify zero reg' (error message) 
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+ERREXIT$ 



ERRETURN 

DS OH 

PUT ERDCB, (0) 

GRETURN 

B RfcSYSECT 



Example 2: 



ERREXIT ERR2 
+ EC J5,ERXTERR2 

ERRENTER ERR2 
+ERXTERR2 DS OH 



do special error processing 



ERRMSG 
^ BAL 0, ERREXlt$ 

DC C' (error message)' 

ERRETURN 
+ERREXIT$ OS OH 



do common error processing 



GRETURN 

B R&SYSECT 
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NAME - ERRMSG 



DESCRIPTION 

ERRMSG &A ^,hB 

&A = a symbol not greater than 4 characters in length 
&B = a register number (defaults to 0) 

The ERRMSG macro should be used to define an error message for 
the error condition designated by &A. &A should be left blank if the 
error condition was designated by an ERRENTER macro (with the associated 
special error processing) immediately preceding the ERRMSG macro. 

The error link register is specified by and should be specified only 
by the first ERRMSG macro in the CSECT. &B will then default to that of 
the first ERRMSG macro for subsequent ERRMSG macros and will default 
to 0 on the first ERRMSG macro if not specified. 

The ERRMSG macro expands to a BAL off the error link register to 
ERRETURN, defining the BAL instruction with the error symbol, if one is 
specified. 

See the ERRENTER macro for examples. 
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NAME - EXITIF 
DESCRIPTION 

The function of the EXITIF macro is to test a condition to see whether to 
continue the loop or exit out of the loop. See the STRTSRCH macro. The 
following shows the format of the EXITIF macro. 



EXITIF 




The condition format is the same as the IF macro except that the label IF is 
not specified. 
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NAME - GRETURN 
DESCRIPTION 

The GRETURN macro expands to a B R&SYSECT. It should be used in 
conjunction with the HEADC and ENTER macros. 
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NAME - HEADC 
DESCRIPTION 

HEADC will generate the CSECT car^ save area, entry coding^ and return 
codingpfor a single entry point Assembler Language program. It will also 
invoke the EQUATE i^acroi5 

The HEADC macro is written as follows: 

CSECT name HEADC [iNTP = YEsJ'^ [, RET = YES] 

"CSECT name" will be the name on the generated CSECT card and the entry point 
for the program. If INTP = YES is coded, a 22-word save area will be gen- 
erated in place of the standard 18-word save area. A 22-word save area is 
neieded if the program INTP is used 

If RET = YES is coded, register 15 will not be restored as 
part of the return logic, allowing the programmer to store a return code in 
that register. INTP = YES and RET = YES are not positional parameters; 
they are keyword parameters, 

HEADC will point GPR 13 to the save area and do a 'USING' on GPR 13 so 
that it will serve as the baste register for the program. The return logic can 
be reached by branching to the label RCSECT name. If this label is more 
than eight characters, the right-most character Is truncated in the generated 
macro label, and an assembly error is flagged in the 'B RCSECT' statement. 
To avoid the error message, the programmer should truncate RCSECT to 
eight characters in coding the 'B RCSECT' statement, 

EXAMPLE OF USE 

ilxample 1 

MUD HEADC 

^ other code 

B RMUD 



See Reference 4, for discussion of INTP. 
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Example 2 

MUDAGARB HEADC 
TC 
B. 



INTP = YES 

^ INTP 
RMUDAGAR 



Example 3 
MUD3 



HEADC 

L 
B 



RET = YES 

$15,=F'2' 
RMUD3 
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NAME - IF 
DESCRIPTION 

The function of the IF nnacro is to generate the labels and instructions that 
branch to these labels to accomplish the IF-THEN, IF-AND-THEN, 
IF-OR-THEN, IF-THEN-ELSE, IF-AND- THEN- ELSE, and IF-OR-THEN-ELSE 
programming functions. 

THE IF MACRO SPECIFICATIONS 

There are six different IF statements. They are: IF-THEN, IF-AND-THEN, 
IF-OR-THEN, IF-THEN-ELSE, IF-AND-THEN-ELSE, and IF-OR-THEN-ELSE. 

The format. for the IF-THEN is: 

IF condition 

code - body 
ENDIF 

which reads "IF the tested condition is true, then execute the code-body. " 

The format for the IF-AND-THEN is: 

IF condition, AND 
IF condition, THEN 

code - body 
ENDIF 

which reads "IF both conditions are satisfied, then execute the code-body. " 

The format for the IF-OR-THEN is: 

IF condition, OR 
IF condition, THEN 

code - body ^ 
ENDIF 

which reads "IF either condition is satisfied, then execute the code-body, " 



IBM 



Real Time Compiiler Complex 



3. IF 

Dot* 3/20/72 

High Level Assembler Language User's Guide - Part II 



The format for the IF-THEN-ELSE is: 
IF condition, THEN 

code - bodyl 
ELSE 

code - body2 
ENDIF 

which reads "IF the condition is true, THEN execute code-bodyl# 
ELSE execute code-body2. 

The format for the IF-AND-THEN-ELSE is: 

IF condition, AND 
IF condition, THEN 

code - bodyl 
ELSE 

code - body2 
ENDIF 

whech reads "IF both conditions are satisfied, THEN execute code-bodyl, 
ELSE execute code-body2. 

The format for the IF-OR- THEN- ELSE is: 

IF condition, OR 
IF condition, THEN 

code-bodyl 

ELSE 



code-body2 
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ENDIF 

which reads "IF either condition is satisifed, THEN execute code-bodyl, 
ELSE execute code-body2. 

THE IF MAC RO FLOWCHARTS 
IF A, THEN 
X 

ELSE 
Y 

ENDIF 
IF A , A ND 

IF B, THEN 

X 

ELSE 
Y 

ENDIF 
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IF A, OR 
IF B, THEN 
X 

ELSE 
Y 

ENDIF 



N 



<|>-N 



y Y 
X 



I 

9<- 



The following shows the fornnat of IF. 



IF 



IF 



BIT 
B 
H 
F 

D 
T 
C 



jrYPEj ,1 



(Rl) 
LA BEL 1, 




(R2) 
LA BEL 2 

ONE(S) 
OVERFLOW 
PLUS 
MINUS 
MIXED 
ZERO(S) 
NMINUS 
NPLUS 
NONE(S) 
NZERO(S) 
OFF 
ON 



AND I 

OR \ 
THEN] 



f And ] 



|7reg= 



1 



LABEL, OPERATION, ^0^^™^^' |thENJ 



j^REG^ 
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The different types are: 

1. An * in the type field stands for the condition is already set. When 

using the * type, the Operation and Condition Fields cannot be omitted. 

Examples: 

IF IS, PLUS, THEN 
+ BC 13, LABEL 

CODE- BODY 

ENDIF 
+LABEL EQU * 
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IF */. EQ, LABEL, THEN 
+ EC 7, LABELl 

CODE-BODYl 

ELSE 
+ B LABEL2 
+LABEL1 EQU * 

CODE-BODY2 

ENDIF 
+LABEL2 EQU * 



2. 



Bit type; will generate a test under mask. The only valid operation 
paramet er is (IS) and the only valid condition parameters are: ZERO, 
ONE, ON, OFF, MIXED, NONES, NMIXED. and NZERO. 



IF BIT, LABEL, IS, < 



Examples: 



ZERO 

ONES 

ON 

OFF 

MIXED 

NONES 

NMIXED 
NZERO 



IF BIT , A , IS, ZERO, THEN 
+ TM A,L'A,- 
+ BC 7, LABEL 

CODE- BODY 

ENDIF 
+LABEL EQU * 



'and 

OR 

THEN 



type: 



IF B, LABELl, IS, 



ZERO(S) 

PLUS 

MINUS 

NPLUS 

NMINUS 

NZERO(S) 



AND 
OR 

THEN! 
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IF B, LABELl, { 



GT 
LT 
EQ 
NE 
GE 
LE 



REG = DEFAULTS TO $0 



Examples : 



T ' 
L ' 

X '4F' 
C 'FF' 
B '01' 
LA BEL2 

liu^/BER/ 



AND 
OR 

THEN 



E 



^EG=j 



IF B, A, IS, ZERO, THEN 
+ CLI A,X'00' 
+ EC 7, LABEL 

CODE- BODY 

ENDIF 
+LABEL EQU * 



IF B, A,EQ,BBB,THEN,REG=$1 
+ IC $1, BBB 
+ STC $1, *+5 
+ CLI A,X'00' 
+ BC 7, LABEL 

CODE- BODY 

ENDIF 
+LABEL EQU * 

IF B,A,EQ, ($1), THEN 

+ STC $l,*+5 
+ CLI A.X'OO' 
+ BC 7. LABEL 

CODE- BODY 

ENDIF 
+LABEL EQU 



> 



These B forms of the IF statement 
alters executable code and are not 
usable if the program is to be re- 
entrant. 



Real Time Computer Complex 



3. IF 

Dat« 3/20/72 
R«v 

Book: High Level Assembler Language User's Guide - Part II 3-8 



IF B,A, EQ, B, THEN 
+ CLC 0+A, B 
+ BG 7,L1 

CODE- BODY 

ENDIF 
LI DS OH 

IF B,B,EQ, ($1),THEN 
+ EX $l,*+8 
+ B *+8 
+ GLI B, 0 
+ BG 7,L1 

GODE-BODY 

ENDIF 
LI DS OH 



> Reentrant B Type 



IF B,A,GT,X'4F', THEN 
+ GLI A,X'4F' 
+ BG 13, LABEL 

GODE-BODY 

ENDIF 
+LABEL EQU * 
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CODE- BODY 

ENDIF 
+LABEL EQU * 

IF B,A,GT, 0+MUD,THEN 

+ CLI A,0+MUD 

+ BC 13, LABEL 

CODE- BODY 

ENDIF 
+LABEL EQU * 



+ 



+ 



IF 

CLI 

BC 



B,A,GT, 138, THEN 

A, 138 

13, LABEL 




MUD 



EQU 186 
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4. Fixed-Point (H or F): 



IF 



(Rl) 

LA BEL 1 



IS 



PLUS 

MINUS 

ZERO(S) 

NZERO(S)( 

NMINUS 

NPLUS 

NONE(S) J 



AND 
|THEN 



j^REG= 



IF 



REG= 



Defaults to $0 



IF H, A , IS, PLUS, THEN 
+ LH $0, A 
+ LTR $0, $0 

EC 13, LABEL.*, 

BODY- CODE 

ENDIF 
+LABEL EQU * 





"gt " 




(Rl) 


LT 




LABELl. < 


GE 






EQ 






NE 











LABEL2 
(R2) 

= H • ' 
=X ' ' 



AND 
OR 

THEN 



I^REG- 



IF H, {$1), IS, ZERO, THEN,REG=^($1) 
■Y LTR $1.$1 
•f BC 7, LABEL 
BOD\^-CODE 
, KKDIF ■ . 
^^A;>£L EQU * 
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IF H,A,GT, B,THEN,REG=$5 

+ LH $5, A 
+ CH $5, B 
+ EC 13, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU - 

IF H,A, EQ, ($1),THEN 

+ CH $1, A 

+ BC 7, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU 

IF H, ($1 ), EQ, ($2), THEN,REG^($1) 

+ CR $1, $2 

+ BC 7, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU 

IF F, A , IS, PLUS, THEN 

+ L $0, A 

+ LTR. $0, $0 

+ BC 13, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU ''^ 

IF F, ($1), IS, ZERO, THEN, REG = ($1) 
+ LTR $1, $1 
+ BC 7, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU * 
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IF F,A,GT, B, THEN, REG=($5) 

+ L $5, A 
+ C $5, B 
+ BC 13, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU 

IF F, ($i),GT,B,THEN,REG=($l) 
+ C $1, B 
+ BC 13, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU * 



IF F,A, EQ, ($1), THEN 



+ C $1, A 

+ BC 7, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU 

IF F, ($1), EQ, ($2), THEN,REG=($1) 

+ CR $1, $2 

+ BC 7, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU * 



5. Floating-Point (E or D): 



IF < 



E 

Dl 



(Ri) 

, LA BEL 1, IS, <! 



ONE(S) 
PLUS 
MINUS 
ZERO(S) 
NZERO(S) 
NMINUS 
NPLUS 
NONE(S) 



J 




REG 



=] 
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REG= Defaults to FPRO 

IF E, A, IS, PLUS, THEN 
+ LE FPRO, A 
+ LTER FPRO, FPRO 
+ BC 13, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU 

IF D, (FPRO), IS, ZERO, THEN, REG=(FPRO) 
+ LTDR FPRO, FPRO 
+ BC 7, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU * 

IF E,A,GT, B,THEN,REG=(FPR4) 
+ LE FPR4, A 
+ CE FPR4, B 
+ BC 13, LABEL 

BODY- CODE 

ENDIF 
+LABEL EQU 

IF D, (FPRO), GT, B, THEN, REG=(FPRO) 
+ CD FPRO, B 
+ BC 13, LABEL 

BODY- CODE 
+LABEL EQU * 
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IF E, A , EQ, (FPR2), THEN 

+ CE FPR2, A 
+ BC 7, LA BEL 

BODY- CODE 

ENDIF 
+LABEL EQU ^'!'- 



IF D, (FPRO), EQ, (FPR2), THEN, REG=(FPRO) 
+ CDR FPRO, FPR2 
f BC 7, LABEL 

BODY- CODE 

ENDIF 
f LA BEL EQU ■''t 



6. Type Field Omitted: 

IF ,LABEL1,IS, ZERO, THEN, REG= (FPRO) 
+ LE FPRO, LA BEL 1 
f LTER FPRO, FPRO 
^ BC 7, LABEL2 

BODY- CODE 

ENDIF 
f I^BEL2 EQU * 



Li. BEL 1 DC E'O' 

' Character (C): 

IF C, LABEL1,< 



LT ^ 

rF- (AND ] 

^ Llabelz, OR^^ [reg=] 

LE I J 

INE. 



}Cxampie: 

C, ABLE> EQ, BETA, THEN 
{;lc able, BETA 

B<: 7, LABEL 



CODE-BODY 



FMDIF 
1 ..AjEL EQU * 
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8. Test Under Mask (T) 



IF T, LABELl, ^ MASK 



ZERO 

ONES 

ON 

OFF 

MIXED 

NONES 

NMIXED 



[AND 
OR 
THEN 



,REG= 



Example: 

IF T, A, X' 11'. ZERO, THEN 
+ TM A,X'll' 

+ BC 7, LABEL 

CODE- BODY 

ENDIF 

+LABEL EQU * 
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PROGRAMMING NOTES 

1. There can be as many as 20 nested IF statements. Each IF statement 
has to have a corresponding ENDIF statement. 

2. The level of a nested IF statement can be found in the LABELS that are 
generated. 

Example: 

IF condition, THEN 
+ BC ,IF 5 0025 



ENDIF 
•fIF 5 0025 EQU * 

The 5 stands for the level of this nested IF statement. 

3. There is no limit on the number of IF-OR/IF-AND statements but after 
the last IF-OR/IF-AND statement there has to be an IF-THEN statement. 

4. Any time a register notation is used in an IF statement the register must 
be in parentheses. If the parentheses are left of f the IF macro would 
treat the register number as a label. 

5. Misspelling and abbreviation of "conditions" mnemonices is not allowed. 

The default register for fixed-point instructions is $0 and for floating- 
point instructions is FPRO. 

In using the structured code macros 

; GT 

■^--^ label, LT , ZERO,~ — generates more inefficient code than does 
EQ 

the equivalent statement using the IS opcode. 

PLUS 

i.e., label, ISp ZERO — 

MINUS 
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8. Reentrant 'programs that use the B TYPE (BYTE) IF statements should'^ 
set the global flag &c$RENT to 1,, This flag will assure that the code 
generated by.the IF macro Ls reentrant. This reentrant code is slower 
than the none reentrant code and should be used only in reentrant programs 
The global flag has to be defined and set before a CSECT statement. 
See the examples of the B TYPE IF statement. 

Example: 



GBLB &$RENT 
&$RENT SETB 1 
XXXXXX CSECT 
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NAME - MATH 



DESCRIPTION 

This macro can be used to save coding time when coding equations in 
Assembler Language, by translating an equation oriented language into 
Assembler Language. Basically, the MATH macro is similar to the RTFMT 
macro in that it translates character strings into Assembler Language instructions. 

The following is an attempt to describe how MATH works and how to 
use it effectively. 

INTRODUCTION 

The MATH macro can be used to convert a "quoted-character-string", of 
valid "OPERANDS", separated by valid "OP-CODES", into their corresponding. 
Assembler Language instructions. The main purpose of this macro is to let 
the user write a floating point equation or expression in a manner similar to 
that used in FORTRAN. It therefore has been designed around the floating 
point instruction set; though, by correct choice of options many of the fixed 
point instructions may be utilized. 

Before considering any of MATH's advantages, disadvantages, applications, 
etc. , certain definitions should be presented and a description given of how 
MATH processes an expression. 

DEFINITION 

OP-CODE - An OP- CODE is a special character or combination of 
characters which designates the operation to be performed using the 
following "OPERAND". In general there exist a one-to-one correspondence 
between each OP-CODE and some Assembler Language instruction. 

All OP-CODES must be immediately preceeded and followed by atleast 
one blank. The following is a list of the valid OP- CODES and their 
correspondence machine operation: 
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OP-CODE 


Operation 


■ + 
PLUS 

MINUS 

/ 

OVER 
TIMES 


Add 
Add 

Subtract 
Subtract ^ 
Divide 
Divide 
Multiply- 
Multiply 


Mathematical OP -CODES 


STORE 
STORE-IN 
SAVED-IN 


Store / 

tl^^^ I Store OP-CODES 
Store i 

Store ^ 


C 

WITH 
COMPARE 
TO 


Compare y 

Compare ) ^ 

^ < Compare OP -CODES 
Compare i 

Compare ' 


$ 

EQU 
HERE= 
LABEL = 


Place label on next instruction / 

Place label on next instruction ) /-r^rMrc 
T-.1 111 . • ^ \ Equate OP -CODES 
Place label on next instruction j 

Place label on next instruction ' 


XOR 
OR 
AND 


Exclusive OR (' . , ^^^^^ , , i v 
^ r Logical OP-CODES (may only be used 
Or \ ^ I i 

1 in fixed point mode) 
And / 


LOAD 
RELOAD 


Load i 

Load < Load OP-CODE 
Load ' 



Besides the above OP-CODES there is also a set of OP-CODES which 
correspond to many of the extended mnemonics for branch on conditions. 
The list of these OP-CODES and there corresponding branch conditions 
are listed on the next page; 
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OP- CODES 


Condition 












B 


15 








BH 


2 








BL 


4 








BE 


8 








BO 


1 








BP 


2 






Branch-on- condition 


BZ 


8 




OP- CODES 


BNH 


13 








BNL 


11 








BNE 


7 








BNP 


13 








BNZ 


7 









NUMBER - Any combination of characters which begins with a - , . , or 
a 0-9, will be placed in the corrected precision floating point literal. Ther 
may be no internal blanks in the character combinations making up the 
NUMBER. 

Note: Further information on valid NUMBER character combination may- 
be found under floating point constants in the Assembler Language 
Manual (C28-6514). 

Note: NUMBERS may not be used in fixed point mode. Instead LITERALS 
should be used in their place, (see page 3-4 for definition of a 
LITERAL. ) 

Examples: 

1, -400, .100, l.OE-10, .Q001E5, 0.100, 0, 1.054, 100, etc. 

TERM - A TERM is any combination of characters which begins with a 
letter (A Z, $, @). Each TERM is assumed to be a valid Assembler 
Language operand. There may be no internal blanks in the character 
combination making up a TERM. 
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SYMBOL - In writing a symbol the following rules must be conformed to: 

1. A symbol must consist of one to eight characters. The first 
character must be a letter. The other characters may be letters 
or digits (0 through 9). 

2. No special characters or blanks are allowed in a synnbol. 

R.EG - Any combination of Characters beginning 'with a " (" is assumed to 
specify a Register (REG). The last character in this character string 
should be a ")". There may be no internal blanks in the character com- 
bination making up the REG. The characters between the first and last 
paren in the string must either be a valid register number or a symbol 
which has been previously equated to a register number. 

Note: The macro will set up the following equates in each assembly in 
which it is used: 



These are therefore special symbols 
and should not be used as statement 
symbols in an assembly. 

fjlTERAL - A LITERAL has the same definition here as it has in Assembler 
Language except that as in all character strings all quotes must be replaced 
by double quotes. 

Examples : 



FPRO EQU 0 

FPR2 EQU 2 

FPR4 EQU 4 

FPR6 EQU 6 



Literal as written in 
A ssembler Language 

-X' 46000000' 
-F'l' 



Its Corresponding 
Literal In Math 

=X"46000000" 



y. ,A -B ) 



=A(A-B) 
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OPERAND - An OPERAND is any valid SYMBOL, TERM, LITERAL, 
NUMBER, REG, EXP, or PREFIXED-EXP (see definition below of EXP 
and PREFIXED-EXP). 

EXP - An EXP expression is a combination of OPERANDS separated by the 
desired OP- CODES. Before the first OPERAND in each EXP must be a 
"(" followed immediately by at least one blank. After the last OPERAND 
in each EXP must by a ")", which may be preceded by as many blanks as 
desired. 

EXP- REG - In evaluating each EXP, one register is used to contain all 
intermediate result s such that when the last OP- CODE in the EXP has been 
processed this register will contain the value of the expression. This 
register is called the expression's register, "EXP- REG". 

Example: 

In FPRO was the EXP-REG for the following EXP, FPRO would contain a 
+2 when the last OP-CODE is processed. 

(1+4-3) 

LE FPRO, =E'r 1 

AE FPRO, =E'4' V Code generated by above EXP 

SE FPRO, =E'3' J 

PREFIXED-EXP - A PREFIXED-EXP is any EXP which is immediately 
preceded by a special operation prefix. This prefix will cause the 
corresponding special operation to be performed on the EXP-REG, of the 
associate EXP, immediately after the last OP-CODE in the EXP has been 
processed. All the special operations are register to register operations 
with the EXP-REG being but the first and second operand. The following is 
a list of the valid prefixes and the operations they cause to be performed 
on the EXP-REG. 
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PREFIX 


OPERATION 


ABS 


Load Positive 


NEC 


Load Negative 


TEST 


Load and Test 


COMP 


Load Compliment 


HALF 


Halve 


DUEL 


Add it to itself 


SOAR 


Multiply it times itself 


Example: 





If the following EXP were encountered with the EXP-REG = FPR2, then 
the following code would be generated; if TYP=E 

SOAR (A - B) 

LE FPR2.A 

SE FPR2, B ) code generated by above EXP 

MER FPR2 , FPR2 

MAIN- EXP - The entire character- string to be converted by MATH is 
called the MAIN-EXP. It is just like any other EXP, except the beginning 
card and the ending parenthesis are replaced with single quotes. 

Example: 

EXP Corresponding MAIN-EXP 

(A * (A - B + O) 'A * (A - B + C )' 

INNER-EXP - Any EXP contains characters which are a subset of the 
characters of another EXP, is an INNER-EXP with respect to this other EXP, 

OUTER-EXP - An expression which contains one or more INNER-EXPs 
is outer to each of them. 



REG-LIST - The register symbols specified in the field of the REG parameter 
is called the REG-LIST (see the macro definition on page 3- 13). 
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SYSPARM-TERM - It is often necessary to reference a number stored as 
a system parameter in processing an equation. This may be done in the 
MATH macro in the following manner. 

If MXXXXX is the system parameter you wish to use, code: 
SYSPARM(MXXXXXNlsr) 

System nlmiber (optional) 

parameter 

name 

MXXXXX = six character system parameter name. 

NN = one or two digit number to be used as a displacement of the 
system parameter in referencing it. This will probably only 
be needed when referencing a system parameter which is an 
array such as MHRSYT. 

Note: As in all TERMS, there may be no imbedded blanks. 

Note: In picking up the address of the iaystem parameter, register 1 
will be used* 

Examples: 

MATH 'A* SYSPARM(MCRFMN)', TYP=E 

>i code generated 
LE FPRO, A 
L 1, =V(MCRFMN) 
ME FPRO, 0(1) 

MATH ' A * SYSPARM(MHRSYT8)',TYP=E 

V code generated 
LE FPRO, A 
L 1, =V(MHRSYT) 
ME FPRO, 8(1) 



For more examples, see pages 
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SPECIAL CAPABILITIES 

A special capability exists which lets any valid Assembler Language 
instruction, which does not contain any quotes, be coded as a Math OP-CODE 
and OPERAND. This is accomplished by coding a # sign immediately before 
the Assembler Language mnemonic, skipping at least one blank after the 
mnemonic, and then coding the OPERAND exactly as it would in the Assembler 
Language instruction. 

Examples: 



MATH MATH ASSEMBLY LANGUAGE 

OPCODE OPERAND STATEMENT GENERATED 

#ST 3, XYZ ^ ST 3, XYZ 

#TM 0(4), 1 > TM 0(4), 1 

#SLL 3, 0 (4) -> SLL 3, 0(4) 

#ST ONE, A +3(5) > ST ONE, A +3(5) 



Note: This capability lets the user embed special operations within the code 
generated by the macro without having to break the equation up into 
several parts. 

The ability also exists to raise a floating point number to a floating point power 
via the MATH Macro. This greatly simplifies the coding needed to accomplish 
this use of the FRXPR# and FDXPD# "power" routines. Also if the "power" 
routine must be used more than once per assembly, space will be saved by 
using MATH rather than the CALL Macro because MATH uses the same 
argument list each time. 

Note: The "power" routine will use all four floating point registers. Therefore, 
it is not possible to save values in these registers across any MATH 
expansion in which the "power" facility is used. Also since these 
registers are used by the "power" routine, the power OP- CODE may 
not be used except in the MAIN- EXP, 

To use this facility one need only use the "**" symbol within the 
MAIN-EXP, This will cause the value currently contained by this 
E:xpression's EXP- REG to be raised to the power stated by the OPERAND 
immediately following the ** symbol. (See the following examples). 
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JExamples: 

The following are examples of a few of the possible uses of the power 
OP-CODE and the Assembler Language code which will be generated in each 
case. 
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MATH 



B 



■6 1*FPR0 

63^FPR4 
6A*-FPR6 



EOU 
EQU 
EQU 
EQU 



SET UP EQUATES FOR THE 
FLOATING POINT REGS 



67* LE 
68+ B 
bg+PARGOOOl DC 
70+PARG0002 DC 
71>AP4RG0"0I"0C ~" 
72+SVFPROXX DC 
73+ ' StE 
74+ LE 
75+ 'StE " 
76+ L 
77+ Ih ~ 

78+ BALR 
79+ STE 
SO 

9 1 + * 
82 + * 



FPRd,A 

*+36 

D»0« 

n«o» 

FPRdf PARGOOOl 
FPR0»9 

"FPR0,PARG0002 

159=Vf FRXPR«I 

l,APAfrGOOl 

14*15 FPRO 

FPR0tA+l6 

*,-^- REG « FPRO 



A SYMBOL 

BRANCH PAST PARH LIST 
FIRST ARG TO POWER ROUTINE 
SECNO ARG TO POWER ROUTINE 
' f AL^f PARG0002i PdWER ARG Lnt" 
WHERE PWR SAVES FPRO 

I St ARG to POWER " 
A SYMBOL 

2ND ARG TO POWER 
AI REAL*4 POWER ROUTINE I 
A( ARGUMENT LIST I 
= ARG I ** ARG2 
A SYMBOL 

WAS USED IN EVALUAtING THE EQUATION 



OF 4t4t*** EQUAT ION 4(************'^4'**4'***4(4'*)^*4'***4t«4c**4t« 
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350 



MATH 



( A ♦ i~) / B ( ( fi ♦ 1 ) / A ) « CSTVP«0 



3*^2 + 

S 5 -t- 
356* 
357-»- 

3585- 

3&0^>- 
361* " 
3 62-«- 
36 3^" 
36A 
>65^* 

3>, 7 



LD FPROfA 

AD FPRO,=U« P 

DD FPRCB 

SID FPROt'PARGdOOl 

LD FPftOfB 

AD FPPO,=D*l» 

DD FPR0,A 

STD FPR0,PARG0002 

L 15,«V(F0XPD«) 

LA ItAPARGOOl 

8ALR 14»15 FPRO 

STD FPROtC 

REG » FPRO 



A SY^^BQL 

NUMBER TYPE 
A SYMBOL 

1ST ARG TO POWER 
A SYMBOL 

NUMBER TYPE 
A SYMBOL 

?H0 ARG TO POWER 
A( DOUBLE PRE POWER ROUTINE ) 
A( ARGUMENT LiST ) 
« ARGl ♦* ARG2 
A SYMBOL 

WAS USED IN EVALUATING THE EQUATION 



ENd OF *♦♦♦♦ EQUATION 



199 

20 j -^ 
2 0 2> ■ 
203 + 
^ 0 a* 4- 

205--*- 

2 0 ' ? 
209-*- 
210+., ■ 
.? I I , 
2 I 2^ 

21 ^■ 

2 1 4 4-* 



MATH 


•( ^ ♦ A.O ) 


1 B ♦ .510 » « C • f TYP«0 


LD 


FPRO* A 


A SYMBOL 


AO 


FPROf^D'-^.G' 


NUMBER TYPE 


STD 


FPRO.PARGOOOl 


1ST ARG TO POWER 


LD 


FPROrB 


A SYMBOL 


MD 


FPRO,^D» .518» 


NUMBER TYPE 


STO 


FPR0»PARG0002 


2N0 ARG TO POWER 


L 


15,«Vf FOXPD«i 


Al DOUBLE PRE POWER ROUTINr 


LA 


1,APARG001 


A« ARGUMENT LIST 1 


BALR 


14,15 FPRO 


= ARGl *♦ ARG2 


STO 


FPROfG 


A SYMBOL 




♦ - REG = FPRO 


WAS USED IN EVALUATING THE EQUATION 



END ***** fif^ ***** EQUATION ************m**************tm********* 





MATH 


• ( A +4.0 ) ** 


( R ♦ .5181 « c • 








FPRO, A 


A SYMBOL 




2 l^'')- 


: AF 


FPR0,-E«A.0» 


NUMBER TYPE 




;■' + 


sit 


FPRO ,PARG000l 


1ST ARG TO POWER 






/ l-F 


FPRO, 8 


A SYMBOL 




2 ?. ■ * 


ME 


FPHO,=e" .518* 


NUMBER TYPE 






STE 


FPRO tPARG0002 


2N0 ARG TO POWER 






L 


15,=VfFRXPR«) 


A( RFAL*A POWER ROUTINE 




2 7 5-»- 


-. LA 


ItAPARGOOl 


A( ARGUMENT LIST 1 






BALR 


14, 15 FPRO 


* ARGl ** ARG2 




221 ■'^ 


STE 


FPRr),C 


A SYMBOL 








♦V — - REG « FPRO 


WAS USED IN EVALUATING THE 


EQUATION 



^ 7 -Q * ■ 

211^***** tHO ***** OF ***** EOUATinM 
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RULES MATH USES IN PROCESSING AN EXPRESSION 

1. All processing is performed left to right. 

2. Each time an INNER-EXP is encountered, the following steps take 
place : 

a. An EXP-REG is determined for this INNER-EXP. 

b. The INNER-EXP is evaluated in this EXP-REG. 

c. Any special operation, specified by a prefix on the INNER-EXP, 
is performed on its EXP-REG. 

d. The EXP-REG is used as the operand for the OP- CODE 
preceding the INNER-EXP. 

3. The first OPERAND in each expression is loaded into its EXP-REG 
unless the first operand is a REG which has the same character 
structure as the EXP-REG. 

Example: If, in the following expression, the macro was specified as 
MATH • (4) + A * ( (FPR2) + (6) )', REG = (4, FPR2), TYP=D 

code generated 

AD 4, A 
ADR FPR2, 6 
MDR 4, FPR2 



4. 



In determining which register will be the EXP-REG for an expression 
it follows the procedure below: 
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Q START ^ 



Is 

Ehis the 
7irst INNER - 
EXP in an OUTER- 
EXP? 



Is 

ihc op- 

"CODE precedin) 
the EXP a LOAD 
OP-CODE? 



Yes 



Uses the EXP -REG 
of the OUTER -EXP 
for the EXP-REG 
of the INNER -EXP 



i 

EXIT 



all the 
registers in 
the REG -TEST belni 
used? 



Save the EXP- 
YeJ REG of the 
OUTER -EXP 



No 



Use the next REG 
in the REG -LIST 
as the EXP-REG 
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5. The character from the TYP parameter (see the macro definition 
below) is used in forming all instructions. 

Example: If, in the following EXP, the EXP- REG was 0, then the 
following code would be generated for each TYP. 

EXP = ( A * B = C ) 



TYP = 


E: 


LE 


0, A 






ME 


0, B 






STE 


0, c 


TYP = 


H: 


LH 


0, A 






MH 


0, B 






STH 


0, C 


TYP = 






0, A 






M 


0, B 






ST 


0, c 



MATH MACRO DEFINITION 



[symbolj 


MATH 


MAIN-EXP [, REG=register list] 






[, TRACE=ON or OFf| 






j\ ANS = where to put answer^ 






|TYP= character or null J 



J - optional 



MAIN-EXP - as described on page 3-6 
characters in a MAIN-EXP. 



There may be a maxim\im of 255 



TYP - the type of instruction to be generated. (The character to be in each 
instructions, i.e., E, D, H, null, etc. ) Default is TYP = E. 
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TRACE - On causes the expression and its EXP- REG to be printed when 
the last OP-CODE In the EXP has been processed. Default is 
TRACE=OFF. These Lntermeciiate expressions can sometimes make 
following the generated code much easier. 

ANS - any valid SYMBOL or REG. 

Default is to leave the answer in the first register specified in the 
REG-LIST. 

REG - a single register label or number, or a sublist of one or more 
register labels or numbers. 

Default: REG = (FPRO, FPR2, FPR4, FPR6) 

NOTE: The registers specified in this REG-LIST tell the MATH macro 
which registers it can use to do the calculations in, and what order to 
use the registers in as it needs now EXP-REGs. 

PROGRAMMING NOTES 

1. All Equate and Branch OP- CODES must be followed by a valid SYMBOL . 

2. The Equate OP-CODE causes the SYMBOL following the OP-CODE to 
be equated to the address of the next instruction. 

3. The Branch-on-condition OP-CODE causes an immediate generation 

of the same branch on condition to the SYMBOL following the OP-CODE. 

4. The HALF and SQA R prefix is invalid in the fixed point mode. 

^ The multiply and divide OP-CODES are not valid in the fullword fixed 
point mode. 

6, Tr.. XCR, AND, and OR OP- CODES are invalid in the floating 

■ point in <;de. 



7. 



The Divide OP-CODE is invalid in all fixed point modes. 
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8. Whenever a STORE-OP-CODE appears in an EXP, the value currently 
in the EXP-REG is stored in the TERM following the OP-CODE for 
later use in the program. 

9. Whenever a LOAD- OP- CODE appears in an EX, it causes the 
EXP-REG to be loaded with the next OPERAND in the EXP. 

10. It should be noted that the hierarchy of operations which exist in fortran 
does not exist in MATH. 

Example: 

Fortran instruction: C = A - b 7 D 
MATH equivalent: 'A - (B / D) = C 

or COMP (B / B) + A = C 

11. Since MATH is only an interpreter and not a compiler, it can only do 
what it is told in the same order it is told to do it. Therefore, if 
proper care is taken in arranging the operations in a floating point 
MATH expression, the floating point operations generated will be as 
tight as can be generated by coding each instruction separately. The 
following is an example of how to code tighter in MATH. Both of the 
following MATH expressions will do the same thing except the second 
expression requires one register instead of two like the first, and the 
second expression requires one less instruction. 



Example 1: MATH ' C * (A + B) = D' 
Example 2: MATH ' A + B C = D' 



12, The MATH macro may need storage space whenever it runs out of 
registers and encounters another level of INNER-EXP. For this 
reason, MATH will set up, and keep track of, any save areas it 
needs. There will be special labels on these save areas as follows: 

FRSAVEON N - l-~>^ 9 f tid MATHTSVR 



These labels should not be used in any assembly in which the MATH 
Macro is used. 
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13, Though I have tried to list most of the major uses and limitations of 
MATH, I am sure there still exist several other possible uses and 
probably still more limitations. However, once the basic mechanics 
of MATH are fully understood, both its faults and attributes should 
become almost obvious. 

14. MATH will perform special error checking for conditions not checked 
by the assembler. When it encounters one of the errors, it will flag 
it with a MNOTE statement having a condition code of 12. 

15- The Branch-on condition OP-CODES will accept any combination of 
eight or less characters as a valid address and let the assembler 
perform the error checking on them. 
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EXAMPLES 

The following is an example of an expansion of the MATHSAVE macro: 
of MATH'S OP -CODES and OPERANDS. 



TEST! 

MATH 
TESTS 
TeST4 
TEST 5 
TEST6 
Tfc5T7 
TESTS 

TEST9 

TESTIO 

TESTll 

TEST12 

TEST13 
TESTIA 



MATH 
• DUBL( 
MATH 
MATH 
MATH 
MATH 
MATH 
MATH 

MATH 

MATH 

MATH 

MATH 
MATH 

MATH 

MATH 

MATH 

MATH 



• A * B / (2) A+4 - 99« 

A) - B« 

A^-8 * B(5) • ,ANS=(FPR6) 

A+4 / B» t ANS=B-»-8( *5) , 

A ( B - A * ( A + 8 - B ) ) • 

A * ( B - A * < A48 - 10) ) • ,REG=2 

(2) / (4) * (6) + •01 - A(5)«»REG=0f ANS«B»TRACE=OFF 

A *(1+ A ♦(l + A * (1+A* 

1 -f A ) ) ) ) » t ANS«B,TRAC6aOPF»TYP=sD 



* .0 199E-24 ) • t ANSa ( FPR6 ) 



A - ( A + B - A-»-8( $5) 
A6SC A - B) - 1 .99» 
A - ABS( A - B + (2) ) • 



NEG( A - B PLUS (2) ) PLUS A • t TR ACE=OFF t T YP« 
A + ABS( A - ABS( A - B) ) • 

AB$( NEG( A MINUS B) + A ) PLUS A« 

A / ABS( A - H ) ♦ ABS( ( B - 100 ) / ( A - ,99 
) ) • tREG=4tANSaB 

A + ARS( A - B - 100^ + 
A*A * A*A*A)« ♦REG" 6 

SOAR( SOAR( AH TIMES A -f ABSt A - B - 100 ) + A» t REG«6 
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TESTALL MATH »1 + ABS( A / B ) + X 

ABS( ( A - B) - ( A+^ - B+4) ) / X 

ABS{ ( A+16 - B-H6 ) - ( A-i-20 - 8^20 »)•» X 
REG=( 2,6) , ANS=A-f4 

MATH •! ■»• ABS( A / B ) + X 

ABS( ( A ~ B) ~ ( A+4 - B+A) ) / X 

ABS( ( A+16 - B+I6 ) - ( A-^20 - B + 20 ))•» X 
KEG=3, ANS = A4-4,TYM = n,TKACE = 0FF 



MATH • ABSI ABS( A - B) - A)» 

MATH • NEG( A - B) • 

MATH • OUBL I A - B) • > . 

MATH • SOAR ( A - B) • 

MATH • COMPI A - B) • 

MATH • HALF I A) • 

MATH • COMP< AM 

MATH • UU8L ( A ) • 

MATH 'SYSPAHMCMCRFMN) - I? WITH A BNE ZEK(i * S YS PARM ( MCCFCU ) X 
STUKE B48 • ♦ TYP = l),TRACE = 0hFrREG = FPR6 

MATH 'A / ( TEST( A - 100) BZ ZERO) * ( A - B) BZ ZEROr 

MATH «A MINUS B{S5) TIMES 100 OVER -400 PLUS (2) HERE= BP200 X 
BM ZERO LABEL= BP201 BZ ZERO STORE B-»-H LOAD A - B » B» 

MATH • ABSI A - ( ABS( A - B) - A ) - B ) •♦REG=6 

MATH • ABS( NEG< l)UBL( Aii / COMPI HALFI B)) * SOAR! A))« 

MATH • ( (4) / (6) - (2)) - A + 10 'fREG^O 

MATH M A B) C ( A - 299 ) RP POSITIVE BZ ZERO * -400« 

MATH • { { i (A ♦ B ) ) ) ) - B+4V 

MATH • I ( ( (4) ) ) ) • 

MATH 'TEST! A - BU5) ♦100 / -400 * <P» » " 
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TESTER 



MATH 



TfiSTeR2 MATH 



• A-»-8 f :;CAR( C - B I - S(jARf HAlri HALF( (6)))) X 

- ABS< ^ * ^^^,6; ) + ( ( A - t<) / B(5) / -1000 X 

• ( A + 16$5:) • O.JbL( A - .001) 4 ABS( A - .lE-10) ) *X 
CriMP{ O'jBK a * B) - (FMR2)) eOU Br300 / X 

NEG( HALF( SOAIU B * 9.5 ) ) H ♦ ,KEG = Ff*R^ . ANS= ( F ;>R-^ ) ♦ X 
TYPst),TRACi - ^JPV 

• A^n ^ '>0UP( A - ) - fOAR( :-:/:i.F( HALF( (6)))) X 

- ABS( A * iPPt'.f) ) ^ { ( A ^ ^) / B(5) / -1000 X 
( A-f-l6('->) luBLt » - .001) ABS( A - .15 10) ) *X 

COMP( ;)UBJ,: A « B> - If PR?)) EOU BP3C1 / X 

NEG( HalTM S(."Ai<( B * 9«: P ) ) i^REG= ( FPR4, FPR6) t X 
TYP=OfTRACL = OFF ♦ANSi^CFPRs / 



MATH • SOAR( SOAR( SOAR< SOA U SOAR( SOAR( SOAP ( B)))))))» 

MATH M A * B^ * B + 8 = B+16 * B + 20) L 100 

BH POSITIVE BE ZERO » B424» 



= B**128 



MATH •( A * B = B + 4 ♦ B-»-8 = B + 16 * B-i-20) WITH 100 

BH POSITIVE BE ZERO = B+2A' t TRACE«0FFtTYP=H,REG«7 

MATH • A PLUS B MINUS 100 OVER .< 2 ) STORE B + ^ TIMES S YSPARM( MCRFMN8 ) • 

MATH • SYSPARM(MKTYPE) • t REG=5 ♦ T YP=H 

MATH •A / ( A+4 » 0.001 BNP ZERO . 10 * A)» 

MATH • A * SYSPARM(MCRFMN) / SYSPARM ( MHRSYT04 ) • 

■ ■ ■ . ' ■ / 

MATH • A * SYSPARM(MCRFMN) = B»tTYP=D 

MATH • SYSPARM(MHRSYTi6) STORE A • t T YP» t REG= 5 

MATH • SOAR( SYSPARM ( MCRFMN ) ) = A • , TYPsO 



MATH • SOAR( S Y SP ARM ' MCRFMN ) ) STORE A»»TYP=D 

MATH • A - B BP BPl * 100 EOU BPl * (A - SOAR( A)) = B+4» 

MATH »A C 3 BE ZERO C 10 BE POSITIVE C 13 BE ZERO 

C 20 BL ZERO = B LOAD 100 STORE BSTRACE = OFF 



MATH • TEST( A ) BZ ZERO C «3) BE POSITIVE + 
RfcG«7 



s B « f TYP' 
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MATH 'A A+4 ^ A-f8 + A-fl2 A+16 « B • t T VPs* t HEG«*) 
MATH • SYSPARM(MGJBAT) LOAD $0-H6<3) STORfc-IN B • t T YM« ,REG«3 



MATH 


t 


A 


HEKE« 


ASOFASOF * ( 


A - B) 


f 


MATH 


1 


A 


$ 


GHJKEGHJ ♦ ( 


A ~ B) 


t 


MATH 


1 


A 


TO H BE 


ZERO* 






MATH 


1 


A 


COMPARE 


B BNE ZERO' 






MATH 


1 


A 


COMPARE 


B BNE ZERO* • 


TYP = 0 




MATH 


f 


A 


COMPARE 


B BNE ZERO* t 


TYPa 




MATH 


1 




A - B BNM BPfl - B 


LABEL= 


BP 8 ♦ 


MATH 


1 


A 


WITH B BNE NOTEQ = B 


B ZERO 


LABEL 




1 


1 


STORE B 


B ZEROSTYPe, 


TRACE*OEF 



MATH 



A ♦ B) • 



» A AND B BZ ZERO OR ( A B) XOR =X • • OFOFOFOF • • 

SAVED-IN B+4 WITH A BE ZERO OR (3) XOR 15) « B 
REG=I7,9) ,TRACE=OFF,TYP« 



MATH • (FPRO) * (21 OVER ( (4) - A ) • f REG- < FPR0»4) 



The following examples are expansions of some of the above MATH 
expressions: 



1^40 

1242 + 
12A3 + 

1245 + 

1246 + 
1247+ 
1248 

124^+* 

1250 + 
12S1 



MATH •* / ( A*4 - 0.001 BNP ZERO 



10 ♦ Al» 



LF 

LE 

SL 

HNP 

LE 

ME 



UER 



FPR'SA 
PPP?,A+4 
•^PR2v- F'O.OOl • 
/FRO 

r-PR2 , = F* 10 • 
FPR?,A 



A SYM»^OL 
A SYMBOL 

NU^^BEK TYPE 
BRANCH ON CONDI T I ON 
NUMBER TYPE 
A SYMBOL 



REG s FOR2 

• A+4 - O.OOl BNP ZERO 

— : — . . 

FPRO ,FPP2 



NOW CONTAINS 
10 ♦ A* 



REG « FPRO 



•A / ( A+4 - O.OOl BNP /FPO 



NOW CONTAINS 
. 10 ♦ A)» 



Rt-G ' FPPO 'WAS USeO IN EVALUATING THE EQUATION 

*,-— REG * FPW2 WAS USEO IN FVALUATING THE EQUATION 



1252+* 

12 53; ■ 

255 + * 
i256+* 

l257 + «<'«** END OF ggy^T ION ♦♦♦*♦*♦*♦♦♦*♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦* 



f X 



IBMnas.*^ Real Time Computer Complex 

3. MATH 
Dat« 3/20/72 

Pkiatt 3-21 

High Level Assembler Language User's Guide - Part II 



1229 HATH • SYSPARMIHKTyPEI • , R6G«5 1 TYP-H 

123l> L 1,«V(MKTYP6> LOAU PEGl WITH ADOR OF SYSPARAN 

12324 - - - 5,0(n OP U<;ING VALUE OF SVSPAPM 

1233 REG = 5 NOW CONTAINS — — 

• SYSPARMCMKTYPF) • 

1234>* ♦ ♦ 

1235 RFG = 5 WAS USEO IN EVALUATING THE EQUATION 

12364* ♦ 

IZ3B^***^ eno i^**** Of EQUATION m^^^^mm^im^immm^^mmmm^mm^mmm^^m^^^^^ 



l<>^e HATH * A ANO B B2 ZERO OR I A ♦ B) XOR •Of OFOFOF* • 

SAVED-IN WITH A 06 ZERO OR (3) XOR 15) « B •» 
i^EG=(7,9) , TRACF = OFF,TYP = 

1630+ ■^..--^ ^^.^ ^ SYMBOL 

16314- N 7,B A SYMBOL 

1632*' Hi /EPfJ BRANCH ON CONDITION 

1633* L 9, A A SYMBOL 

1634-f A o,B A SYMBOL 

1635+ OR 7,9 

1636+ X ■ 7t=X«OF0f OFOF* A SYMBOL 

1637* ST 7,B'l-4 A SYMBOL 

1636+ C 7, A A SYMBOL 

163Q+ BF ZERO BRANCH ON CONDITION 

164C+ OR 7,3 A REG TYPE 

XR 7t5 A RFG TYPE 

1642+ ST A SYMBOL 

1*^3 — f^hG = 7 WAS USED IN EVALUATING THE EQUATION 

1644 RFG * 9 WAS USED IN EVALUATING THE EQUATION 

I64i) + * ^ 

1646>* ^ 

1647+***M CNO Of EOUAT ION ****^m*^mmmm0m00mm0mmm00*m^m0^m0^m 
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6C TESTl 



MATH • A ♦ B / (2) > A44 - 99« 



Of 



62+FPRO 
63-»-F PR2 

6 5VFPR6 



EOU 
EQU 
EOU 



SET UP EQUATES FOR THE 
FLOATING POINT REGS 



67+TFSTl 


EOU 






tE 


FPRO,A 




'"ME 


FPRO,B 


7U 


DER 


FPR0f2 


72*- 


AE 


FPRd,A+A 


7 3^ 


SE 


FPROf =»E«99« 


74 




*» 






• A * B / 








7f> 




REG « 


77 + * 






7a*« 










0^ 4i4c#«4( E 



A SYMBOL 
A SYMBOL 

A REG TYPE 
A SYMBOL 

NUMBER TYPE 
REG = FPRC NOW CONTAINS 



♦ X 



REG « FPRO WAS USED IN EVALUATING THE EQUATION 



1260 



MATH 



A * SYSPARMIMCKFMNI / S YS P ARM < MHR SYT04 I 



1 2/0 + 

1264 + 

1265 + 
12^6 + 

1268+* 
1 ? 

12 7C+* 
1271+* 
1272+***** 



LE 

L 

ME 
L 

DE 



FPROfA 
1 , =V(MCRFMN ) 
FPRO ,0(1) 
1,=V{MHRSYT ) 
FPRC tO^i 1 ) 
* 



A SYMBOL 

LOAD REGl WITH ADOP OF SYSPARAM 
OP USING VALUE OF SYSPARM 
LOAD PEGl WITH AOOP OF SYSPARAM 
OP USING VALUE OF SYSPARM 
REG = FPRO NOW CONTAINS 



A * SYSPAPM( MCRFMN) / SYSPARM! MHRSYTOA ) • 



REG = FPRO WAS USED IN EVALUATING THE EQUATION 



gls^Q #4c4(4c4t QF EQUATION 
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857 



HATM » A8S( NeG< DUBL ( A)) / COMP( HALF< B) ) * SQMI AIM 



360 

862+ 
B63 

86T 
868 + * 

370" ' 

8714-* 
872* 
873V" 
874+ 

876"»-« 
877 + 
878* 
379 

88l> 
882 

8 3 3 + * 

a«TA ' ■ 

885 
886 + * 
887+* 
BBS+***** 



AER 



FPRO,A 



f — — - 
• A* 



A SYMBOL 
PPG = FPRO NOW CONTAINS 



FPRd,FP^?C 

♦f 

• DUBLC Al,» 

4i 

LE FPR2,B 



SPFCIAL QPfRATION 
REG a FPRO NOW CONTAINS 



SPECIAL OPERAflON 
A SYMBOL 
REG = FPR2 NOW CONTAINS 



•*X 

•*x 
*x 



B 



HER 



FPR2fFPR? 



• HALFC B)« 



SPECIAL OPERATION 
REG « FPR2 NOW CONTAINS -♦X 



LCER FPR2,FPR2 
OER FPRd,FPR2 
LE FPR2tA 

■ 

• A» 

— . 

HER rPR2fFPR2 
MEft^~ FPRd,FPR2 



SPECIAL OPERATION 
A SYMBOL 



RFC - FPR2 



NOW CONTAINS 



♦ X 



SPECIAL OPERATION 



REG = FPRO 



NOW CONTAINS *X 



• NTGI 0UBL1 A) I 7 COHPr HALFi Bll *SOARf A)» 



LPER FPRCFPRO SPFCIAL OPERATION 

^ - REG = FPRO NOW CONTAINS 

* ABS( NEG( OUBL( A) ) / COMPI HALF( B)) * SQARI A))« 

♦ . ■ . . . 4t 

RfG « FPRO WAS USED IN EVALUATING THE EQUATION 
REG = FPR2 WAS USED IN EVALUATING THE EQUATION 

♦ 
♦ 

END ***** OF ***** EQUATION ♦♦♦♦♦4t*«4t***4(4i4(4t«4i4i4i4H>«««#4i4i*#«»«*#|»# 



*x 
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1435 


MATH 


•A + A+4 


14374- 


L 


5t A 


143 3 4- 


A 


5, A + 4 


l439> 


A 




1440-*- 


A 


5,A+i2 


14414. 


A 


5fA+l6 


1442*' 


ST 


5,B 


1443 




♦f— • 






• A ♦ A + 4 


I 444+* 






1445 




»^EG 


1446+* 














£N0 





•A + A+4 > A*8 ♦ A + 12 ♦ A + 16 « B« t TYP« ♦ REG«5 

A SYMBOL 
A SYMBOL 
A SYMBOL 
A SYMBOL 
A SYMBOL 
A SYMBOL 

— REG « 5 NOW CONTAINS — *X 

A*8 + A«^t2 4 A+16 s B* 



♦ 



1^13 MATH 'A PLUS B MINUS lOO OV^R C?» STORE 6+4 TIMES SVSPARM INCRFUMei • 

1215+ LE FPKOfA A SYMBOL 

1216+ AE FPRO,B A SYMBOL 

1217+ ' "SE " PP^0,=P^100« NUMBER TYPE 

1218+ DE« FPR0f2 A REG TYPE 

121^^+ STE EPf^C,h>+4 A SYMBOL 

L220+ L 1,=V(MCKFMN» LOAD REGl WITH ADOR OF SYSPARAM 

1221+ ME FPRO»«(l) OP USING VALUE OF SYSPARM 

1222 — REG = FPRO NOW CONTAINS — — — — *X 

• A PLUS rt MINUS 100 OVER r2l STORE a+4 TIMES SYSPARMtX 
MCRFMNBI • 

L223+*'"' *— — — — . — . -.-^ — ^ — : 

L224 PEG « FPPO WAS USED IN EVALUATING THE EQUATION 

L225 + * 

1226+* , .... 

[221^**^*^ END T)F ***** EQUATION ************************************m 
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445 T6STAU MATH 



if46-i-TPSTffLX""E0D' 



• I ♦ ABS( A / B ) ♦ 
ABS( ( A - Bl - ( A*4 
ABSt C A+16 - fl*l6 ) - 

REG»(2«6)« ANS>A4>4 





B*4) ) 
{ A+?0 



- B^20 MS 



xc 
xc 
xc 
c 



4^8+ 

451 

452** 

453 + 

454+ 

455 + 

4564- 
-457 

458f ♦ 
4 594- 
460 + 
461> 

-46^ -- 

-463 
464 + 
4'65+ 
466-+ 
TE7 



468+* 
469 + 
470+ 
471 + 

"4T7+'""" 
473 

474+* 
475+ 
4 76 + 
2f77+ - 
478 

47^+* 

^R0 + 
431 + 

483 

4B4+* 
485 + 
486+- 



LE 
OE 



AER 
SE 



STE 

LE 

SE 



STE 

LIE 

SE 



LPER 
AER 
LE 
SI 



STE 
LE 



STE 
LE 

SE'- 



LPER 
OER 



2,=E«l« 
6« A 

*• 



NUMBER TYPE 
A SYMBOL 
A SYMBOL 



A / B • 



REG = 6 



NOW CONTAINS 



6»6 
2,6 
6, A 
6tB 

• A 



SPECIAL OPERATION 



A SYMBOL 
A SYMBOL 
REG = 6 



NOW CONTAINS 



- B« 



6, 
6, 

6t 



FRSAVEOl 

A+4 

B+4 

A+4 - B+4 



SAVE REGS CONTENTS 
A SYMBOL 
A SYMBOL 
REG «'6 iMOW CONTAINS* 



SPECIAL SAVE FOR NON-COMMUTE OPS 
RETRIEVE SAVED DATA 
PERFORM OPERATION 

REG " ND¥ CONTAINS — 

( A - B) - ( A+-4 - B+4) • 



MATHTSVR 
FRSAVEOl 
MATHTSVR 



6f 
6, 

I 



♦ X 

♦ X 



SPECIAL OPERATION 



6 

A + 16 



A + 16 - 



A SYMBOL 
A SYMBOL 

REG =6 

B+16 • 



NOW CONTAINS —r- 



*- 
6, 



FRSAVEOl SAVE REGS CONTENTS 

A+20 A SYMBOL 

B+20 A SYMBOL 

— — — REG = 6 NOW CONTAINS 

A+2C - B+20 • 



6, 
6* 

6V 

*f 

■ r 



•*X 



MATHTSVR SPECIAL SAVE FOR NON-COMMUTE OPS 

FRSAVEOl RETRIEVE SAVED DATA 

MATHTSVR PERFORM OPERATION 

— — — REG = 6. NOW CONTAINS — ^-^ )( 

( A + 16 - B+16 ) - i A^20 - 84-20 l« 



p EG * 2 

1 + ABSI A / 9 » + 



SPECIAL OPERATION 

-NOT CONTAINS - — — ~ 



♦ X 

X 
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CONCLUSION 

The number of possible combinations of options, OPERANDS, and OP- CODES 
is too large to discuss each one, even briefly. Therefore, as in learning any- 
new language, probably the best way to learn how to write expressions is to 
use the definition and examples as a guide in coding up a few test cases. 
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MATH REFERENCE INFORMATION 



OP-CODE 


OPERATION 


OP -CODE 


OPERATION 


+ , PLUS 

MINUS 
/. OVER 
*, TIMES 

= ,SAVED-IN 
STORE, 

STORE -IN 
OR 


ADD 

SUBTRACT 
DIVIDE 
MULTIPLY 
POWER ROUTINE 
STORE 

STORE 

OR 


C.WITH 

TO, COMPARE 

. , LOAD 
RELOAD 

XOR 
AND 


COMPARE 
COMPARE 

LOAD 
LOAD 

Exclusive OR 
AND 


OP -CODE 


i 

OPERATION 


$,HERE= 
EQU, 
LABEL= 

B 

BH, BP 
BL, BM 
BE, BZ 
BO 

BNH,BNP 
BNL, BNM 
BNE, BNZ 


Place label on next instruction 

Place label on next instruction 
Branch on Condition 15 
Branch on Condition 2 
Branch on Condition 4 
Branch on Condition 8 
Branch on Condition 1 
Branch on Condition 13 
Branch on Condition 1 1 
Branch on Condition 7 



VALID OPERAND 

Any valid SYMBOL Any valid TERM 

Any valid LITERAL Any valid NUMBER 

Any valid REG , Any valid EXP 

Any valid PREFIXED-EXP. 
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OPERAND 


STARTING CHARACTERS 


NUMBERS 


• , - , 0 — ♦ 9 


SYMBOL 


A ¥ Z , $ , and @ 

(only 8 characters at maximum) 


TERM 


A ¥ Z, $ , and @ 

(any assembly language operand) 


REG 


"(" followed immediately by a symbol or number 


EXP 


"(" followed by at least one blank 


LITERAL 


= sign (like in assembly language except 
quote doubled) 







SPECIAL TERM FOR SYSTEM 
VALID PREFIXES FOR EXP'S PARAMETERS 

ABS HALF SYSPARM (MXXXXXNN) 

NEG DUBL MXXXXX = SYSPARM NAME 

TEST SQAR NN = null or 0 • 99 

COMP 
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NAME - NIBIT 

■I -t- 

DESCRIPTION 

The ftmction of the NIBIT macro is to generate an AND IMMEDIATE instruction 
which utilizes the length code of the symbol specified to "turn off" a desired 
bit in a byte. 

DEFINITION 



where Symbol is the label of a data base definition which has an associated 
length code. 

EXPANSION 




NIBIT 



Symbol 



I NAME 



OPERATION 



OPERAND 




NI 



NIBIT 



LABEL 



LABEL, X'FF'-L'LABEL 



GENERAL NOTES 



• The NIBIT macro will be utilized most often in conjunction With the 
B IT macro, since B$T generates a desired length <iod« a»»ociat^d with 
a valid label.4^ > 
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NAME - OIBIT 

DESCRIPTION 
(See XIBIT) 
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NAME - BIT 
DESCRIPTION 

The purpose of the BIT macro is to generate a data base definition whose length 
can be used as a key to test or manipulate a specific bit in a byte. 

DEFINITION 



symbol 


BIT 


j'^it number, or list of bit | 






4 numbers, or binary 8- bit / 






I configuration J 






[. on] 



where 

• symbol any valid non-blank label. If omitted, an error 

condition will be raised with a condition code of 12. 

• bit number -- an unsigned decimal integer, 0 through 7, representing 

standard bit notation. 

• list of bit numbers -- a list of bit numbers separated by commas. 

The entire list must be enclosed by parenthesis. 

• binary 8- bit configuration — notation of the form B'XXXXXXXX', where 

X is 1 if the corresponding bit is to be represented 

by this label and X is 0 if the corresponding bit is 
not to be represented by this label. 

• ON indicates the bit or bits indicated in the first 

operand are to set to 1 in a global variable which 
is passed to the BYTE macro. 
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FUNCTION 

The BIT macro performs its operations as follows: 

• checks to see if there is a valid non-blank label attached to the macro. 

• processes the information passed by the first operand, checking each 
time for an invalid bit number or binary character. 

• generates a DS and ORG statement to establish a length which can be 
used to test or manipulate bit(s), and reset the location counter setting. 
(There is an exception to this --if the name of the CSECT currently 

being processed starts with SCDB, the DS and ORG 
statement will not be generated. 

EXAMPLES OF THE USE 

The following are included to give the user a feeling of what can and cannot 
be done with the BIT macro: 



Example 1 



NAME 



OPERATION 



r 



FIRST 
+FIRST 



I 

I + 



BIT 

DS 
ORG 



OPERANDS 

0 

XL(B'IOOOOOOO') 
♦-B'lOOOOOOO' 



I- 



NAME 



Example 2 



I SECOND 
I 

I +SECOND 
1 + 



OPERATION 
BIT 

DS 
ORG 



OPERANDS 



(0, 1, 5, 7), ON 

XL(B'llOOOlOl') 
♦-B' 11000101' 



Note: In the above example, specifying 'ON' had no effect upon the 
expansion of the macro. 
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NAME - ORELSE 
DESCRIPTION 

The function of the ORELSE macro is to generate the branch and labels that 
correspond with the branch instructions generated by the EXITIF macro and 
the labels generated by the ENDLOOP macro. See the STRTSRCH macro. 
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NAME - STRTSRCH 



DESCRIPTION 



The search macros are used to generate the logic which is typical to what a 
programmer does when he sets up a loop to search through a table. The 
programmer's intent is to exit when he finds what he is searching for and 
perform process B. If he does not find what he is looking for, he executes 
process D before joining the alternate path. The ORELSE is optional and if 
it is omitted, box C does not appear in the flowchart. The following shows 
the format of the STRTSRCH format. 



STRTSRCH 



WHILE 
UNTIL 



I [,REG=] 



OR 

(condition), \ AND 
DO 

The STRTSRCH macro used the WHILE/UNTIL field to generate a WHILE 
or UNTIL macro statement. The condition format is the same as the 
WHILE and UNTIL macro. 

EXAMPLE 



STRTSRCH condition p 

Process A 
EXITIF condition q 

Process B 
ORELSE 

Process C 
ENDLOOP 

Process D 
ENDSRCH 
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Note: 

When using these macros care should be taken not to confuse the ENDLOOP 
and ENDSRCH macros. The ENDLOOP is used to define the end of the loop 
and the ENDSRCH indicates the end of the complete macro set. 

If a programmer is nesting these macros, he must be certain that each macro 
set is completely embedded within the process boxes of the higher level ones. 
If the user does not 6jo this the following sequence of code would generate 
incorrect brshching because of the manner in which the stacks are manipulated. 
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NAME - TMBIT 



PURPOSE 



The function of the TMBIT macro is to generate a test under mask instruction 
which utilizes the length code of the symbol to be tested as the mask byte. 

DEFINITION 



Jsymbolj 



TMBIT 



Symbol 



where Symbol is the label of a data base definition which has an associated 
length code. 

EXPANSION 



NAME 



[^symbol] 
+|8 ymboTj 



GENERAL NOTES 



OPERATION 

TMBIT 
TM 



OPERAND 



LABEL 



LABEL, L'LABEL 



^ J 



• The TMBIT macro will be utilized most ofteii jm conjunction BIT 
macro^ since BIT generates a desired length code associated with a valid 
label. 
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NAME - UNTIL 



DESCRIPTION 

The function of the UNTIL macro is to generate the labels and instructions 
that branch to these labels to accomplish the programming function of iteration. 
The UNTIL macro supports both instruction for incrementing /dec retnenting 
indexes and instructions for terminating the loop based upon a change in a 
logical condition. The UNTIL statements support loops in which the indexing/ 
condition-testing instructions are executed after the first pass through the 
code -body. 

The UNTIL MACRO specifications: There are three difference UNTIL state- 
ments, the.UNTIL-DO, UNTIL-OR-DO, and the UNTIL -AND- DO. For the 
flowcharts of the UNTIL statements, see the ENDDO macro writeup. 

The general format for the UNTIL-DO is: 

a. Indexed - UNTIL-DO: 

UNTIL (index-instructions), DO 

code-body 
ENDDO 

which reads " UNTIL the following index- instructions fail to branch , 
continue to execute the code-body. " 

b. Logical - UNTIL-DO: 
UNTIL (condition), DO 
code-body 

ENDDO 

which reads " UNTIL the following conditions are true, continue to 
execute the code-body. " 
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The general format for the UN TIL -OR -DO is: 

UNTIL (index- instruction), OR 
UNTIL (index- instruction), DO 

code-body 

ENDDO 

UNTIL (condition), OR 
UNTIL (condition), DO 

code-body 

ENDDO 

UNTIL (index- instruction), OR 
UNTIL (condition), DO 

cody-body 



ENDDO 
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The general format for the UNTIL-AND-DO is: 

UNTIL (index -instruction), AND 
UNTIL (index- in St ructions), DO 

code-body 

ENDDO 

UNTIL (condition), AND 
UNTIL (condition), DO 

code-body 

ENDDO 

UNTIL (index-instruction), AND 
UNTIL (condition), DO 

code -body 

ENDDO 

The following shows the format of UNTIL: 



/ 



(R2) 



BCT 
BXH 
BXLE 



LABEL2 
ONE(S) 



UNTIL 



BIT 
B 
H 
F 
E 
D 
C 
T 



(Rl) 
'LABELl, 



(R3)\ 

IS 

GT 

LT I 
\GE I 

LE 

EQ 
VNE J 



> 



MINUS 

MDCED 

ZERO(S) 

NMINUS 

NFL US 

NONE(S) 

NZERO(S) 

OFF 



OVERFLOW 

PLUS 



>) 





ON 



UNTIL 



.(a°Nd) [,REG=] 
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INDEXED UNTIL 

The different types are: 

1. BCT: 

r ORl 

UNTIL (BCT,R1),<A^^> 

JEbcample: 

UNTIL (BCT,$l),DO 
+LABEL1 BQU * 

CODE- BODY 

ENDDO 
+ BCT $1, LABEL! 

2. BXH and BXLE: 
Examples: 

UNTIL (BXH, $1, $3), DO 

+LABEL1 EQU * 

CODE-BODY 

ENDDO 
+ BXLE $1,$3, LABEL! 
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LOGICAL UNTIL 

The different types are: 

1. An * in the type field stands for the condition is already set. When using 
the * type, the Operation and Condition fields cannot be omitted. 

Example: 

UNTIL (*,,IS,PLUS),DO 
+LABEL EQU * 

CODE- BODY 

ENDDO 
+ BC 13, LABEL 



2. Bit type: will generate a test under mask. The only valid operation 
parameter is (IS). 

fZF.RO \ 
ONE 
ON 
OFF 
MIXED 
NONE 
NZERO 
VNMIXED ) 



UNTIL (BIT, LAB EL, IS, < 



Example: 

UNTIL (BIT,A,IS,ZERO),DO 

+LABEL1 EQU * 



CODE- BODY 



ENDDO 
+ TM A, L'A 
+ BC 7, LABELl 
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3. B Type 



f ZERO(S) ^ 
PLUS 
MINUS 



UNTIL (B,LABELl,IS,;^^^j^^g 



NZERO(S) 



UNTIL (B,LABEL1, i 



/ GT ^ 
LT 
EQ 
NE 



/ 

L' 

X'4F' 
C'FF" 



GE I 
. LE I I I 

[reG=| DEFAULTS TO $0. 

Examples: 

UNTIL (B, A, IS, ZERO), DO 

+LABEL EQU * 

CODE- BODY 

ENDDO 
+ CLI A,X'00' 
+ BC 7, LABEL 



) B'oi' ) )JandS ,REG.J 

LABEL2 I ; 



UNTIL (B,A,EQ,AAAAAAAA+l6),DO 
+LABEL EQU * 



CODE- BODY 
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\ 



ENDDO 

IC $0, AAAAAAAA + 16 

$0, *+5 
A,X'00' 
7, LABEL 



STC 
CLI 
BC 



UNTIL (B,A,EQ, ($l)),DO 
+LABEL EQU * 

CODE-BODY 



ENDDO 

STC $l,*+5 

CLI A,X'00' 

BC 7, LABEL 



These B forms of the UNTIL state- 
ment alters executable code and are 
not usable if the program is to be 
reentrant. 



UNTIL (B, ABLE, EQ, BAKER), DO'\ 
+L1 DS OH 

CODE-BODY 

ENDDO 

+ CLC 0+ABLE,BAKER 
+ BC 8,L1 



> Reentrant B TYPE 



UNTIL (B,ABLE, EQ, ($l)), DO 
+L1 DS OH 

CODE-BODY 

ENDDO 

+ EX $1, *+8 

+ B *+8 

+ CLI ABLE, 0 

+ BC 8, Ll 
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UNTIL (B,A,GT, 138), DO 

+LABEL EQU * 

CODE-BODY 

■ I- • 

ENDDO 
+ CLI A, 138 
+ BC 13, LABEL 

UNTIL (B,A,GT,0+MUD),DO 
+LABEL EQU * 

CODE-BODY 

ENDDO 
+ CLI A, 0+MUD 
+ BC 13, LABEL 

UNTIL (B,A,GT,X'4F'). DO 
+LABEL EQU * 

CQDE-BODY 

ENDDO 
+ CLI A,X'4F' 
+ BC 13, LABEL 
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4. Fixed- Point (H or F) 



UNTIL ,LABEL1,IS, ^ 



/'ONE(S) > 
PLUS 
MINUS 
ZERO(S) 
NZERO(S) 
NMINUS 
NPLUS 
VNONE(S) 7 



UNTIL (^^) , LABEL!, 



/ GT 
LT 
GE 
EQ 
NE 

^ LE 



/ LABEL2\ 




lANDV 
DO 



I [,REG=] 



REG= Defaults to $0. 

UNTIL (H, A, IS, PLUS), DO 
+LABEL EQU * 

CODE- BODY 



ENDDO 

LH $0,A 

LTR $0,$0 

BG 2, LABEL 



+ LABEL 



UNTIL (H, ($1), IS, ZERO), DO 

EQU * 



CODE- BODY 



+ 
+ 



ENDDO 

LTR $1,$1 

BC 7, LABEL 
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UNTIL (H, A, GT, B) , DO 

+LABEL EQU * 

CODE- BODY 

ENDDO 

+ LH $0, A 

+ CH $0, B 

+ BC 13, LABEL 

UNTIL (H,A,EQ,($l)),DO 

+LABEL EQU * 

CODE- BODY 

ENDDO 

+ CH $1,A 

+ BC 7, LABEL 

UNTIL (H,($l),EQ,($2)),DO 

+JLABEL EQU * 

CODE-BODY 

ENDDO 

+ OR $1,$2 

+ BC 7, LABEL 

UNTIL (F, A, IS, PLUS), DO 

+LABEL EQU * 

CODE- BODY 

ENDDO 

+ L $0, A 

+ LTR $0,$0 

+ BC 13, LABEL 
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UNTIL (F, ($4 IS, ZERO), DO 
+LABEL EQU * 

CODE- BODY 

ENDDO . 
+ LTR $1,$1 

+ BC 7, LABEL 

UNTIL (f;a,gt,b),do 

+LABEL EQU * 

CODE- BODY 

ENDDO 

+ L $0, A 

+ C $0, B 

+ BC 13, LABEL 

UNTIL (F,($l),GT,B),DO 
+LABEL EQU * 

CODE- BODY 

ENDDO 
+ C $1,B 

+ BC 13, LABEL 

UNTIL (F,A,EQ,($l)),DO 
+LABEL EQU * 

CODE-BODY 



+ 
+ 



ENDDO 

C $1, A 

BC 7, LABEL 
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UNTIL (F,($l),EQ,($2)),DO 
+LABEL EQU * 

CODE- BODY 

ENDDO 
+ CR $1,$2 

+ BC 8, LABEL 



5. Floating Point (E or D) 



lEi ; 

UNTIL (<^>,LABEL1,IS,< 



( ONE(S) N 
PLUS 
MINUS 
ZERO(S) 
NZERO(S) 
NMINUS 
NPLUS 
\ NONE(S) ) 




[,REG=:] 



(Rl) 



/ GT \ 




f \ 


LT 




LABEL 2 


J GE 


li 


(R2) I 


] EQ 


=E' • f 


NE 




=D' • 


V LE f 




^ ) 



. OR 

I AND 
DO 



[, REG=] 



[reg=] 



Defaults to FPRO. 



UNTIL (E,A,IS,PLUS),DO 
+LABEL EQU * 

CODE- BODY 



ENDDO 

LE FPRO, A 

LTER FPRO, FPRO 

BC 13, LABEL 
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UNTIL (D,(FPRO),IS,ZERO),DO 

+LABEL EQU * 

CODE- BODY 

ENDDO . 
+ LTDR FPRO,FPRO 

+ BC 7, LABEL 

UNTIL (E,A,GT,B),DO 
+LABEL EQU * 

CODE- BODY 

ENDDO 

+ LE FPRO,A 

+ CE FPRO,B 

+ BC 13, LABEL 

UNTIL (D,(FPRO),GT,B),DO 
+LABEL EQU * 

CODE-BODY 

ENDDO 
+ CD FPRO,B 

+ BC 13, LABEL 

UNTIL (E,A,EQ,(FPR2)),DO 
+LABEL EQU * 

CODE- BODY 



+ 
+ 



ENDDO 

CE FPR2,A 
BC 7, LABEL 
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UNTIL (D, (FPRO),EQ, (FPR2)),DO 
+LABEL EQU * 

CODE- BODY 

ENDDO 

+ CDR FPRO,FPR2 

+ EC 7, LABEL 



6. CHARACTER(C) f LT ^ 

GT 

UNTIL (C, LABEL!, < GE 

EQ 



LE 
NE 



UNTIL (C, ABLE, EQ, BETA), DO 
•fLABEL EQU * 

CODE-BODY 

ENDDO 

+ CLC ABLE, BETA 

+ BC 7, LABEL 

UNTIL (C,=C'SED',EQ,0($3)),DO 
+LABEL EQU * 

CODE- BODY 



+ 
+ 



ENDDO 

CLC =C'SED',0($3) 
BC 7, LABEL 
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7. Test Under Mask (T) 



UNTIL (T,LABELI JmaSK> . 



UNTIL (T,A,X»11', ZERO), DO 
+LABEL EQU * 



ZERO 

ONE 

ON 

OFF 

MIXED 

NONE 

NZERO 

NMIXED 



f OR 
I AND 

I DO 



CODE- BODY 
TM A,X'1I' 
BC 7, LABEL 



VIII. Type Field Omitted: 

UNTIL (, A, IS, ZERO), DO 
+LABEL EQU * 

CODE- BODY 



ENDDO 

LE FPRO,A 

LTER FPRO,FPRO 

BC 7, LABEL 



DC 



E'O' 
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PROGRAMMING NOTES 

Also see programming notes ifor IF macro. 

1. "Index- Instruction" can be a!ny one of the following: 

a. BCT,rl 

b. BXH,rl,r3 

c. BXLE, rl,r3 

2. "Code- Body" can be any group of valid machine and/or macro instructions, 
including a maximum of twenty nested WHILE / UNTIL' s. Multiple index- 
instructions in the same loop are also supported, 

3. The expansion of the UNTIL macro causes the indexing and/or logical 
instructions to be assembled after the code -body and executed after the 
first pass through the code -body, 

4. The level of a nested WHILE / UNTIL s tat ement can be found in the LABELS 
that are generated. 

UNTIL (condition), DO 

+UN/5/XXXX EQU * 

The /5/ stands for the level of this nested UNTIL statement, 

5. Any time a register notation is used in a logical- UNTIL statement, the 
register must be in parentheses. It does not make any difference whether 
a register is in parentheses or not with an Indexed- UNTIL statement. 

6. Misspelling and abbreviation of "conditions" mnemonices is not allowed. 

7. Restriction: Ebcpressions cannot be over sixteen characters in length. 
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8. Reentrant programs that use the B TYPE (BYTE) UNTIL statements 
should set the global flag &$RENT to 1. This flag will assure that the 
code generated by the UNTIL macro is reentrant. This reentrant code 
is slower than the none reentrant code and should be used only in reentrant 
programs. The global flag has to be defined and set before a CSECT 
statement. See the examples of the B TYPE UNTIL statement. 



Example: 



GBLB &$RENT 
&$RENt SETB 1 
XXXXXX CSECT 
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NAME - WHILE 



DESCRIPTION 

The function of the WHILE macro is to generate the labels and instructions 
that branch to these labels to accomplish the programming function of 
iteration. The WHILE macro supports both instructions for incrementing/ 
decrementing indexes and instructions for terminating the loop based upon 
a change in a logical condition. The WHILE statements support loops in 
which the indexing /condition -testing instructions are executed before the 
first pass through the code- body. 
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The WHILE MACRO specifications. 

There are three different WHILE statements, the WHILE-DO, WHILE-OR-DO, 
and the WHILE-AND-DO. For the flowcharts of the WHILE statements, see 
the ENDDO macro writeup. 

The general format ifor the WHILE- DO is: 

1. Indexed WHILE- DO: 

WHILE (index- instruction), DO 

code-body 
ENDDO 

which reads, "WHILE the index- instruction branches, continue to 
execute the code-body. " 

2. Logical WmLE-DO: 
WHILE (condition), DO 

code-body 
ENDDO 

which reads, "WHILE the indicated condition is true, continue to 
execute the code-body." 

The general format for the WHILE-OR-DO is: 

WHILE (index- instruction), OR 
WHILE (index- instruction), DO 

code -body 

ENDDO 



WHILE (condition), OR 
WHILE (condition), DO 



IBM NAS9-^ Real Time ComfNiter Cmxj^ 



3. WHILE 
Dot* 3/20/72 



Book: High Level Assembler Language User's Guide - Part II ^"^ 



code-body 
ENDDO 

WHILE (index- instruction), OR 
WHILE (condition), DO 

code -body 

ENDDO 

The general format for the WHILE-AND-DO is: 

WHILE (index- instruction), AND 
WHILE (index- instruction, DO 

code-body 

ENDDO 
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WHILE (condition), AND 
WHILE (condition), DO 

code -body 

ENDDO 

WHILE (index- instruction), AND 
WHILE (condition), DO 

code -body 

ENDDO 

The following shows the fornnat of WHILE: 



/ 



WHILE H 



BCT 
BXH 
BXLE 

BIT 

B 

H 

F 

E 

D 

C 

T 



(Rl) 





( (H2) 




LABELZ 




ONE(S) 


W3)^ 




OVERFLOW 


IS 




PLUS 


GT 




MINUS 


1 LT 


>.< 


MIXED 


\ GE 




ZERO(S) 


LE 




NMINUS 


EQ 




NPLUS 


VNE ) 




NONE(S) 




NZERO(S) 




OFF 




^ ON 



OR \ 

WHILE ([type], LABEL, OPERATION, CONDITION),/^"^ > J,REG=j 



INDEXED WHILE 
The different types are: 
1. BCT 

WHILE (BCT,R1), 



or] 
andV 

, DO J 
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Example: 



+LABEL2 



WHILE 
B 

EQU 



(BCT,$l),DO 
LABELl 



+LABEL1 
+ 



CODE- BODY 

ENDDO 

EQU * 

BCT $1,LABEL2 



2. 



BXH and BXLE 



WHILE ( 



BXH 
BXLE 



,R1, R3), 




EbcampLes: 



+LABEL2 



WHILE 
B 

EQU 



(BXH, $1, $3), DO 
LABELl 

* 



CODE- BODY 



+LABEL1 
+ 



ENDDO 

EQU 

BXH 



$1,$3,LABEL2 



+LABEL2 



WHILE (BXLE,$l,$3).DO 
B LABELl 
EQU * 



CODE- BODY 



+LABEL1 
+ 



ENDDO 
EQU * 

BXLE $1/$3,LABEL2 
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LOGICAL WHILE 

The different types are: 

1. An * in the type field stands for the condition is already set. When 
using the ^ type, the Operation and Condition fields cannot be omitted. 

Example: 

WHILE (*, ,IS,PLUS),DO 

+ B LAB ELI 

+LABEL2 EQU * 



CODE- BODY 

ENDDO 
+LABEL1 EQU * 
+ BC 2, LABEL2 



2. Bit type: will generate a test under mask. The only valid operation 
parameter is (IS). 



WHILE (BIT, LABEL, IS, { 



/'zero a 

ONE 
ON 
OFF 
MDCED 
NONE 
NMIXED 

Vnzero ) 



OR^S 
\)//ANDi 



DO 



Example: 



WHILE (BIT, A, IS, ZERO), DO 
+ B LABELl 

+LABEL2 EQU * 



CODE- BODY 
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+LABEL1 

+ 

+ 



ENDDO 
EQU 
TM 
BC 



* 

A, L'A 
8,LABEL2 



B Type 
WHILE (B, LABELl, IS, 



WHILE (B,LABEL1,< ^ ),< 



/GT \ 
LT 
EQ 
NE 
GE 
^LE>' 



/'ZERO(S) > 
PLUS 

MINUS ), 
NPLUS 1^ 
NMINUS 
ONE(S) 
NZERO(S) 

•^NONEcs) ; 

L' 

X'4F' 
C'FF' 

B'01» J>). 
LABEL2 
(R2) 



yANDl 

\do/ 



(do) 



[,REG=] 



[reg=] defaults to $0 

Examples: 



WHILE (B,A,IS,ZERO),DO 
+ B LABELl 

+LABEL2 EQU * 

CODE- BODY 



+LABEL1 



+LABEL2 



ENDDO 
EQU 
CLI 
BC 

WHILE 
B 

EQU 



A,X'00' 
8,LABEL2 

(B , A , EQ , AAA A A A A A +16 ) , DO 

LABELl 

* 
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CODE- BODY 




ENDDO 




+LABEL1 


EQU 




+ 


IC 


$0, AAAAAAAA+16 


+ 


STC 


$0,*+5 


+ 


CLI 


A,X'00' 


+ 


BC 


8,LABEL2 




WHILE 


(B,A,EQ. ($1)), DO 


+ 


B 


LABELl 


+LABEL2 


EQU 


* 




CODE- BODY 




ENDDO 




+LABEL1 


EQU 




+ 


STC 


$l,*+5 


+ 


CLI 


A,X'00' 


+ 


BC 


8,LABEL2 




WHILE 


(B,A,GT,138),DO 


+ 


B 


LABELl 


+LABEL2 


EQU 


* 



These B forms of the WHILE 
^ statement alters executable 
code and are not usable if the 
program is to be re-entrant 



CODE- BODY 
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WHILE (B, ABLE, EQ, BAKER), DO 


+ B 


LA BEL 1 




4-T A "RTTT 7 


DS OH 




CODE- 


BODY 




+LABEL1 


DS OH 




+ CLC 


0+ABLE, BAKER 


+ BC 


8, LABEL2 






WHILE (B,ABLE,EQ, ($l)),DO 


+ B 


LA BEL 1 




+LABEL2 


DS OH 




CODE- 


BODY 




+LABEL1 


DS OH 




+ EX 


$l,*+8 




+ B 






+ CLI 


ABLE, 0 




+ BC 


8,LABEL2 






ENDDO 




+LABEL1 


EQU 




+ 


CLI 


A, 138 




BC 


2,LABEL2 




WHILE 


(B,A,GT,0+MUD),DO 


+ 


B 


LABELl 


+LA BEL2 


EQU 






CODE-BODY 






ENDDO 




+LABEL1 


EQU 




+ 


CLI 


A,0+MUD 




BC 


2, LABEL2 



> 



Reentrant B TYPE 



/ 
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WHILE (B,A,GT,X'4F'),DO 

+ B LABELl 

+LABEL2 EQU * 

CODE- BODY 

ENDDO 

+LABEL1 EQU * 

+ CLI A,X'4F' 

+ BC 2,LABEL2 



4. Fixed Point (H or F) 



WHILE 



/ONE(S) 
PLUS 

(Rl) fOR, 
(^^^, LABELl, IS/ NZERO(S)/'' VDO 



NMINUS 
NPLUS 
^NONE(S) 



[,REG=] 



WHILE ( 



(Rl) 



/GT > 




LT 




J GE 
] EQ 




NE 




V LE> 





(R2) 

= F' 
= H' 



r ) 



OR 
I AND! 

DO 



[,REG=] 



|REG=j Defaults to $0. 
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+LABEL2 



WHILE (H, A , IS, PLUS) , DO 
B LABELl 

EQU * 



CODE-BODY 



+LABEL1 

+ 
+ 
+ 



+LABEL2 



END DO 

EQU * 

LH $0,A 

LTR $0,$0 

BC 13,LABEL2 

WHILE (H, ($1), IS, ZERO), DO 

B LABELl 

EQU * 



CODE- BODY 



+LABEL1 

+ 

+ 



+LABEL2 



ENDDO 
EQU 
LTR 
BC 

WHILE 
B 

EQU 



* 

$1,$1 

8, LABEL2 

(H,A,GT,B),DO 

LABELl 

* 



CODE- BODY 



+LABEL1 

+ 

+ 

+ 



+LABEL2 



ENDDO 

EQU * 

LH $0, A 

CH $0,B 

BC 2, LABEL2 

WHILE (H,A,EQ,($l)),DO 

B LABELl 

EQU * 
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CODE- BODY 



+LABEL1 

+ 
+ 



ENDDO 
EQU 
CH 
BC 



* 

7, LABEL2 



WHILE (H , ($ 1 ) , EQ , ($2 ) ) , DO 
+ B LABEL! 

+LABEL2 EQU * 

CODE-BODY 



+LABEL1 

+ 



ENDDO 
EQU 
CR 
BC 



* 

$1,$2 

8, LABEL2 



+LABEL2 



WHILE (F,A,IS,PLUS),DO 
B LABELl 
EQU * 



CODE- BODY 



+LABEL1 
+ 

+ 
+ 



ENDDO 

EQU 
L 

LTR 
BC 



$0, A 
$0, $0 
2,LABEL2 



+LABEL2 



WHILE (F, ($1), IS, ZERO), DO 
B LABELl 

EQU * 



CODE-BODY 



+LABEL1 

+ 

+ 



ENDDO 
EQU 
LTR 
BC 



$1,$1 

8, LABEL2 
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+LABEL2 



WHILE (F,A,GT,B),DO 
B LABELl 

EQU * 



CODE- BODY 



+LABEL1 

+ 

+ 

+ 



END DO 

EQU 

L 

C 

BC 



$0,A 
$0, B 

2, LABEL2 



+ 

+LABEL2 



WHILE 
B 

EQU 



(F,($l),GT,B),DO 
LABELl 



CODE- BODY 



+LABEL1 

+ 

+ 



+LABEL2 



ENDDO 

EQU 

C 

BC 

WHILE 
B 

EQU 



* 

$1,B 

2, LABEL2 

(F,A,EQ,($l)),DO 
LABELl 



CODE- BODY 



+LABEL1 

+ 
+ 



ENDDO 
EQU 

C 

BC 



* 

$1,A 

7. LABEL2 



+LABEL2 



WHILE (F, ($1), EQ, ($2)),DO 
B LABELl 
EQU * 



CODE- BODY 
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+LABEL2 

+ 

+ 



ENDDO 
EQU 
CR 
BC 



$1,$2 
7,LABEL2 



5. Floating Point (E or D) 



E 



(Rl) 



WHILE (J^V ,LABEL1,IS,< 



(ONEiS) \ 
PLUS 
MINUS 
ZERO(S) 
NZERO(S) 
NMINUS 
NPLUS 
VNONE(S) J 



E 



(Rl) 



GT^ . 



WHILE ( ^ , LABEL1, { 



LT 
GE 
EQ 
NE 
^vLE. 



LABEL2 
(R2) 

E» ' 
=D' • 



[reg=] 



Defaults to FPRO. 



fOR 



I X yANDl 



[,REG=] 



+LABEL2 



WHILE (E,A,IS,PLUS),DO 
B LABELl 

EQU * 



CODE- BODY 



+LABEL1 

+ 

+ 



ENDDO 

EQU 

LE 

LfER 
BC 



FPRO, A 
FPRO, FPRO 
2,LABEL2 
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+LABEL2 



WHILE (D, (FPRO) , IS, ZERO) , DO 
B LABELl 

EQU * 



CODE- BODY 



+LABEL1 

+ 

+ 



ENDDO 
EQU 
LTDR 
BC 



FPRO, FPRO 
8, LABEL2 



+LABEL2 



WHILE (E,A,GT,B),DO 
B LABELl 

EQU * 



CODE- BODY 



+LABEL1 

+ 
+ 
+ 



ENDDO 

EQU 
LE 
CE 
BC 



FPRO, A 
FPRO, B 
2, LABEL2 



+LABEL2 



WHILE 
B 

EQU 



(D,(FPRO),GT,B),DO 
LABELl 



CODE- BODY 



+LABEL1 

+ 

+ 



ENDDO 
EQU 
CD 
BC 



FPRO, B 
2, LABEL2 



+LABEL2 



WHILE {E, A,EQ, (FPR2)),DO 
B LABELl 
EQU * 



CODE- BODY 
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+LABEL1 

+ 
+ 



+LABEL2 



ENDDO 
EQU 
CE 
BC 

WHILE 
B 

EQU 



FPR2,A 

7,LABEL2 

(D, (FPRO),EQ, (FPR2)),DO 
LABELl 



CODE- BODY 



+LABEL1 

+ 

+ 



ENDDO 
EQU 
CDR 
BC 



* 



FPRO,FPR2 
8,LABEL2 



6. Character (C) 

WHILE (C, LABELl, 



( LT ^ 

GT 
GE 
EQ 
LE 
NE ' 



+LABEL2 



WHILE ( C , ABLE , EQ , B ET A) , DO 
B LABELl 
EQU * 



CODE-BODY 



+LABEL1 

+ 
+ 



+LABEL2 



ENDDO 
EQU 
CLC 
BC 

WHILE 
B 

EQU 



ABLE, BETA 
8, LABEL2 

(C , - C SED' , EQ , 0($3) ) , DO 

LABELl 

* 



CODE- BODY 
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+LABEL1 
+ 



ENDDO 
EQU 
CLC 
BC 



= C'SED',0($3) 
8, LABEL2 



7. Test Under Mask (T) 



WHILE (T,LABEL1, 



MASK) . < 



r ZERO ^ 
ONE 
ON 
OFF 
MIXED 
NONE 
NMIXED 
NZERO 

J 



WHILE (T,A,X»11', ON), DO 
+ B LABELl 

+LABEL2 EQU * 

CODE- BODY 



OR 
AND 

DO 



+LABEL1 

+ 
+ 



ENDDO 
EQU 
TM 
BC 



* 

A,X'll' 
8, LABEL2 



8. 



Type Field Onaitted 



+LABEL2 



WHILE (, A, IS, ZERO), DO 
B LABELl 
EQU * 



CODE- BODY 



+LABEL1 
+ 

+ ■ 



ENDDO 

EQU 

LE 

LTER 
BC 



FPRO,A 

FPRO,FPRO 

8,LABEL2 



DC 



E»0' 
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PROGRAMMING NOTES 

Also see programming notes for IF macro. 

1, "Index- Instruction" can be any one of the following: 

a. BCT,rl 

b. BXH, rl,r3 

c. BXLE, rl, r3 

2, "Code-Body" can be any group of valid machine and/or macro- instructions, 
including a maximum of twenty nested WHILE / UNTIL' s. Multiple index- 
instructions in the same loop are also supported, 

3, The WHILE function causes the indexing instructions to be assembled at 
the end of the loop but generates a branch past the code-body to cause 
the indexes to be incremented/decremented before the first pass through 
the code-body. 

4, The level of a nested WHILE/UNTIL statement can be found in the LABELS 
that are generated, 

WHILE (condition), DO 
+ B Wl/5/xxxx 

+W2/5/XXXX 

The /5/ stands for the level of this nested WHILE statement. 

5, Any time a register notation is used in a logical- WHILE statement, the 
register must be in parentheses. It does not make any difference whether 
a register is in parentheses or not with an Indexed- WHILE statement. 

6, Misspelling and abbreviation of "conditions" mnemonic es is not allowed. 



IBM 



7o Restriction: Expressions cannot be over sixteen characters in length. 
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8. Reentrant programs that use the B TYPE (BYTE) WHILE statements should 
set the global flag &t$RENT to 1. This flag will assure that the code 
generated by the WHILE macro is reentrant. This reentrant code is 
slower than the none reentrant code and should be used only in reentrant 
programs. The global flag has to be defined and set before a CSECT 
statement. See the examples of the B TYPE WHILE statement. 

Example: 



GBLB &t$RENT 
&$RENT SETB 1 
XXXXXX CSECT 
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NAME - XIBIT-OIBIT 
PURPOSE 

The purpose of the XIBIT and OIBIT macros are to generate an EXCLUSIVE OR . 
IMMEDIATE instruction to invert a specified bit. ..and an INCLUSIVE OR IMMEDIATE 
instruction to "tutJPi on" a specilied bit, respectively. Both utilize the length 
code of the symbol to be operated upon. 

DEFINITION 



j~symboi~j 


XIBIT 


■ 

Symbol 




j~symbolj 


OIBIT 


Symbol 



where Symbol is thie label of a data base definition having an associated length 
code. 



EXPANSION 



NAME 


OPERATION 


OPERAND 


l^ymbolj 


XIBIT 


LABEL 




OIBIT 




+j^ymbolJ 


XI 


LABEL, L'LABEL 




OI 
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GENERAL NOTES 



• The XIBIT and OIBIT macros will be utilized most often in conjunction 
with the BIT macrOj^ since BIT generates a desired length code associated 
with a valid label. 
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4. USE WITH RTPM 

4.1 PRE- AND POST-ASSEMBLY PROCESSORS 

The concept of structured prograrnming Involves a physically structured 
program listing as an integral part. In order to automate this (permit source 
coding to be aligned as per OS standards: columns 1, 10, 16), two processors 
were written to generate either a structured source listing or a structured 
assembly listing. The post-assembly processor also optionally deletes 
unreferenced labels from DSECTs and assembly cross-references. 

The pre- and post-assembly processors are invoked by coding the following 
PARM keyword parameter on the EXEC card which invokes RTPM: 

PARM. STEPNAME=', , , , SMTPGASM, SMXRPASM' 

and adding the following DD card: 

//GSSCPRNT DD UNIT = DISK, SPA CE=(TRK, (X, Y)) 

where X is typically 50 - the largest assembly listing that is expected. This 
is not the total amount of assembler output that the jobstep will generate. 

The program SMTPGASM serves as the linkage between RTPM and the 
pre-assembly processor. When SMTPGAvSM receives control from RTPM 
(this occurs when a GASM control card is used in place of a ASSM control 
card) register 1 points to the same parameter list that will be passed to the 
assembler following the LINK to SMTPGASM. Upon receiving control 
SMTPGASM issues an OPEN (a QSAM get-locate type) on the input source 
member. It then reads the source member for a card that begins with a"*)" 
pattern. Upon finding this card it scans this card looking for a valid (whose 
name is in a table) control ID. If a valid ID is found it LINKs 
to the associated module, defined in a JOBLIBXX DD card added to the RTPM 
step.* Otherwise it will continue reading the source cards for a valid ID. If 
a valid ID is never found SMTPGASM will return to RTPM without any special 
error condition set. 

* This capability is not part of HLAL; 
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When used to generate a structured source listing, no *) cards need to be 
included in the Source member, but an additional DD card must be added to 
the step for the pre-assembly processor to place the structured source listing: 

//STRUCTUR DD UNIT=DISK, SPACE={TRK, (X, Y)) 

where X is typically 5 - the largest single source member that is being used. 

If no STRUCTUR DD card is included in the jobstep, no structured source 
listing will show up on ASMPRINT. Note that when the STRUCTUR DD card 
is used, . / GASM must be used in place of . / ASSM. 

The post-assembly processor is used to indent assembled code and eliminate 
non-referenced labels from assembly listings and cross reference only if 
SMXRPASM is specified in the PARM field of the EXEC card. REHDRTPM 
will link to SMXRPASM just after linking to the assembler and prior to a BALR 
to the collection tape writer. SMXRPASM will be passed the DDNAME of the 
assembler - written print data set and the DDNAME that the assembler would 
have used if RTPM was not in post-assembly user exit mode. After execution 
of SMXRPASM, assembly print will be located on the data set that would have 
been used if no post-assembly exit has occurred; thus normal RTPM processing 
can resume after the exit. 

SMXRPASM will always produce a structxired listing unless a $$$$$$$# is 
found in the cross-reference. The structured listing will be indented three 
spaces for each new logical section of code and restored three spaces for each 
logical section of code that is terminated. In addition a level number will be 
output to indicate the level of indention on all statements. Wrap-around will 
occur after the level of indention exceeds three levels. 

To initiate the non- referenced labels deletion function of SMXRPASM a 
$ EQU * card must be included in the source listing at the location the deletion 
is desired to start. A $$ EQU * would stop the deletion function, a $$$ EQU * 
would start it again, and a $$$$ EQU * would stop it. At this point it could not 
be started again. SMXRPASM reads through the assembly listing until finding 
the cross-reference. If a $ EQU * card has been included in the source listing 
it will be the first label in the cross-reference. If this $ card is found SMXRPASM 
builds a table of all cross-reference labels that are referenced or whose 
definition statement number is outside the $ cards limit. It also builds a table 
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of the definition statement numbers of all cross-reference labels that are not 
referenced and whose definition number is in the $ cards limit. Once these 
tables are built SMXRPASM goes back to the beginning of the assembly listing 
and deletes all statements whose numbers are in the table built above. In 
addition if the statement following the deleted statement has a blank or an 
asterisk in card column one it will also be deleted. In the cross-reference 
it deletes all labels whose name does not appear in the other table built above. 

4. 2 INVOKING THE HLAL MACROS 

To invoke the HLAL common MACROs, the following SYSLIB concatenation 
is suggested: 

//SYSLIB DD DSN = &TMPSRC, DISP=(SHR, PASS), VOL=REF=*. SYSTEMPS 



// 

// 
// 
// 



DD DSN=SYS1. MACHAL, DISP=(SHR, PASS), UNIT=DISK, 
VOL=SER = PRODSK 



DD DSN=(User MACRO Library) 
DD DSN=SYS1. MACLIB, DISP=SHR 



X 



The HLAL MACROs reside on PRODSK (SYSl. MA CHAL) and the 
pre- and post-assembly processors are in SYSL RTPMLIB, 



IBM 



HLAL Coding Reference Data 

(REF. SKYLAB USERS' GUIDE ) 



STSUOTJREB CODE MA.-'TOS 



ELSE 
ENDIF 



hTTTIL 



L — J ( (R2) \ 

STRTSBCH {!^£^|. |uHTlL/WHlli- ;ps.-3j:d| 

EXITir {if . operand I 

08ELEE 
EMDI/Xi? 
EilDSRCH 

M segMr. -. (.«« I; 



aCHSEG a«go«nti ,reg] 
laCSSG segae-i*. 

tsyxbolj CASE c«se reg, 



AT««ddre»» list \ , , 

iLAT=«iJares3 < r ,Ri'7r.EG=regi«terl 

(R) I 
IOT=aiWress ; 

*-ypg • opera--ton/»»»lt cacaiticn/label 2/fR2) 

^ IS o»iE,o'''S'iT«,?u,'s,.>'r!ius,Mixnj,zaic, 

aCSl-c.lWU"; WCSI SZEaC.SMIXED 
• 5T,LI.:l,:i.a;,lre label Zf^cr, red- 



{fj -"".LT.iJ.LE.EV.SS la: :,vR2) .literal 
■:T.ir,:Z,LK,E9,KE -.a-e; - 



SE uEKI'lrT'.cai 



*tlt number , 
[»3fBbo! ! BIT <(iist of bit nuabers) > (, 

binary 8-bit configuration' 

(sjnBbolJ BrTE [one byte hex umlue) 




WILE A,/MO 



STRTiSCM «Hll£, 




r-[»j 



mSCEUAKEOUS liACROS 

cse=tn«Be HEADC ( mTP»YES).[ .hET'YtS 1 

[INTP] EHTEP (csectnane,entry.'-i .i-nlryS.entryli,...]) 
! .(labell,labelP.lokel3,labelli,. . . ),' 



FOP-MAT OF MATH MA"RO 
syabol] MATH ••-%th expression'; ,Rir,=regi»ter list J( ,rRACE«<M/OFT) 
(AJIS-sySboll i,TT?»E,D,H. or null) 



MATH nEl EJtENCE SHEET 
-CODE I OPERATIOtf 



*. PLUS 
-. MiN'JS 
/. OVEH 
>. TIMES 

= ,SAVED-LN 
STraiE. 
STOBELS 



ADO 

syaTHAcr 

DIVIDE 
MULTIPi-T 

STOKE 
STOkC 



OPERATIOK 



AND 



J,HXRE» 
EQU. 
LABEL' 



OPERA nuN 



PUc« l«b«l oa acxt Ut«tructi 

P)Ar« label oo .>ezt taalru^::! 
Bruct oo CoivJ.'.ion IS 
Braoch OR Cor.^Uoa 2 
?ra.^cl> oo Coi.a tioo < 
Brandt so Ca->J::!» • 
Branch 90 CofwlitioB 1 
Braacii on CocdiHoo 13 
SraocS 00 C^odilijo It 



f AiLDOPtRAND 



NUMBERS 

TERM 

REC 
EXP 

LIBERAL 



STfNC CHAP A 



VALU) PREnXES FX)R EXP » 



ABS 
NBC 
TIST 
COUP 



HALF 

OUBL 
SOAR 



SYSPARM (MXXXXXNN) 
MXXXXX > STSPABM NAME 
NN < oull or « 9f 



Real Time Computer Complex 
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High Level Assembler Language User's Guide - Part II ^"^ 



5. EXAMPLE 

The following pages present an example of the use of HLAL. First, is the 
CSECT's structured source listing and second is the same CSECT's structured 
assembly listing. As discussed previously, both or either the assembled or 
source structuring may be obtained using the pre- and post-assembly processors 
with RTPM. 

In looking at the source statements, note the effective use of comments 
with HLAL MACRO statements, producing a much more readable listing. 
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Date 
Rev 

IVige 5-2 



2 3 
2 3 A 

^ TT T 

2 3 A 
3 <r- 



I 

— -Sff t: - 

sunt 



♦ THIS TS A NEW POSITION CONTROL WORD 

$0,CI*IN» LOAD THE NPOM INTO RPRO 

>0»6 ■ ^ ■ ■■ - 

»l f23 

$Ot»X«OOOO0lFF • 



06 300000 

06400000 
0 6S 00000 



06600000 

C P Ri H OW C O NTAI N S THC N EW K P O S ITIO N 0 6 70000 0 
GPRO NOW CONTAINS THE NEW V PnSITlN 06800000 
Q6 » 0ft00Q 



<^RI iOt3 CV-121'8 

-i<fr >0 » » < rt .2 > f M AHG» W<? ! C L» HM* RO t~ 

LR $3,$0 

-tt »3»LWR0 t »3 ) 

IF F , (*0» ,GTt (IVMAX) tTHEN THIS IS NEW VMAX 



07000000 
07100000 



07200000 
07300000 



07400000 



tr- 

'■Nf'TF 

-»»CT*< »1 * 0 



fmrrttrr 



07S 0 0O0O 



07600000 
07700000 



%9 



»0t$0 



-? 3 T 

2 3 4 



ftp 



$ 0 « «f * T ' 

$3 til 



07800000 
07000000 



(X- iMT 

((Y-I2)/8»*(LiNE W IDTH»*LMARr,*(X-l )/7 08000000 



\^ ^X%y \ ,6 T » « A <( NL l N - I > * < LMa R 0 » N e oH -RM A R 9n»T ll fN 



00100000 

08200000 
■> 08300000 




Li 



PNr>i«= 



$15tl6 



FRRCR 



BAD X,Y COORDINATE 

'Reru R N— — — - ■ 



2 — -XT* 

? 3 r,p«3 ^JOW Ep'IALS THE STAf»TING 



08400000 
00 5 00000 



~l — T 
?. 3 

2 - 3 
7 3 



4* 



DISPLACEMENT INTO THE BUFPER OF THE 08600000 

N g X T CHa R AC teR -~ 00700000 

08800000 

: 0 09 00000 — — 



■f MP TP 



t A 



$ rwf 4 ($IN» 



POINT $IN TP NFXT WORD,... 



09000000 
0 9 100000 



09200000 



0 9 300000 
0940000 0 
0 95 QO00C 



■ ' — ~~ 

2* 



I. A $INf4($TM» 



Fvnnr 

5^ . Ti5-,$-trr— — •» f i r g R Wflf 

R c<;cnwnHC RETURN * 



Oc«ftOOOOC 

o«i>-7O0ooe- 

09P0000C 

00 0 0 0 



T P MP 

■ » »* » — ■ 



lOOOOOOO 
-iOl ooooo 



— — ' 1» « r c — «; ' ' — 

MrvOPnTD r)r y«00' mcVG Tp PRCDI 

nr y ♦ ooop • 

r>r r~»f*-» 9 — pw f G j t > — 



10200000 

♦-♦i.*- »_♦_»-♦-♦-♦-♦ 10 400000 
— 10500000 



C TR TABLP •♦*♦♦*♦♦♦♦♦«♦♦** 10600000 

10800000 
11 000000 



pr x'2'^2F2P' 

nr - '•-^ »fl - w c '^F^fi H n. L -* — — — 



IHQQOOO 
11200000 
11300000 



*********************************** ******* 



ll<>00000 

__ _ 11 5 00000 

****4ii»4i*4i****4i*«4i*«***«4i««* I 1600000 

-— 1 1 700000 

11800000 

12000000 
1210 0 000 



niirtr'*, j f t Ttf err 'tr 
T M f T » { <- A " S ) 



"TT m T — — n . '' W'- ' n — 

« - CI r ^, { <• ^fy<i ) 

e 5 ft -^wt^-t 
» TSTTT " ' 



■■Tg - -T - ' 



12200000 
12300000 



a — (r 
» L 
= X 

s 4> 



12400000 



12600000 



12800000 
12900000 
13000COO 

13200000 
13300OO O- 
13400000 
13^00000 



13600000 
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P lIWr T lON — TP 



cRC'^T'- l="RM» IN TMF OUTPUT «>UP»'PR AREA 



« INP*ITs GPBl Pf'lNTS TO nCUBLF WCRO • 4DDR INPUT DATA 

A Wfio OUT P UT 



• 00200000 

• 00300000 

• 00400000 



• 00600000 

* 00700000 



* 00800000 



* 








■* 00000000 

01000000 


— S''nMpMr P 
OMARC, 


MPanc 


Hf^gyr ^ 


» NC« COLUMNS TO RIGHT OF DISPLAY 


QltOOOOO 

01200000 
01300000 — 


■ Lwaatr. - - 
Nf nt 






7? 


■ NO, eCLUWhS TH left display — 

« NO. COLUfhS/LI KF IN DISPLAY 


01400000 


Nl IN 

iMorw 


-won — 

FOU 


-57" 
X' 80» 


» NO.' LIWII!!t OUT^lfT ft^PLAY 

... INSERT MFMQR HEVIOE 


OlSOOOOO 

01600000 


— ^ nmrw 


-HtJ+i 

EOU 


X » n:o^ 

y»08' 


PNP Cf >«C!:SSACp 

... ERASE fEHORY SUBSECTION 


01700000 

01800000 
01900000 


•^ro* — 
vm 


EOir 

-Fmi — 


x»o»* : — 

X»02« 

X'rii ' 


START SHALL CHAROCTCRS 

• START LARGE THARACTER^ 
... START VPC^ORS 


02000000 

— oa 100000 



fOMMAMT FOU 
STPT^LNK EOt) 
»T,N EOU 



x« 3r ' 

X * 10 ' 
x'OO* 
X »or « 

$ 10 



COMI^ANO VCRC 

N O Mg M OWv A e OR« I N CRrng N T 

START RLTNK 
-^nrp — ftt+tlH 



02200000 
02300000 



02400000 
Og 5 000 00 



-PTJTJ TT 

SPAFF 3 



»i , ^ tS f « I HTf) BU ^Pg H e* * LAS7 LI N 



02600000 
087 0 0000 
02800000 
08 9 00000 - 



L 

SP4'"F 3 
WH ll g t » 

t. A 

mi» n n — 
SPACE 

WHH «• 

IP 



tTN t OI t\ 1 

tllt'^tii) 
% r m n Xt» Y WA X 



• • • 

■ a • 



* f I WP U T O AT A > 

A( rtTPL'T 8UF«=ER ) 



ttTTT 



03000000 
03100000 



,UI>lWl fN » ; , 0 *l. ' JH »< AWI ,m TftD — f IR ST C WP Kft RO 

$INt4*$INi 



03200000 
039 0 0000 



03400000 

OB g obooo 

03600000 
09700000 



I 

"T — 7- 
1 Z 

r 

1 2 

T- -r- 
i ? . 

~T 7- 

1 ? 
I 2- 
1 2 
1- ■T^- 
l 2 
I I 
\ 7 
1 -T 
I 2 

r- 7- 

1 7. 

~I T- 

12 
1 2 
1 2 

"T 2- 

l 2 



\ S J>>I WT ,X *0* *FWSC»» E C I* C W ,T g R C) » 0 C — L OOP THR t3U0 h DATA 09700000 

Pt3<»lN),NE ,0*VCW,THEN THIS IS NOT A START VECTOR MODE 03800000 

0 * S CC W .THgN S l l g « S M ALL N O W 03 9 00000 



, F 0f O * a CC 

•^VI CHARW10T*3,1 

TTSE ■ 



3 
3 

3 



04000000 
0 4 100000 



TP Bt3(f IN) ,EQ,0*LCrw,THEK SI ZE « L4RGE NOW 
wirr- — e HA PW|0T »3 ^2 St-fl^ NO W « L»ROC 



04200000 
0 4 300000 — 



FNDIF 

rmr 



I A $IN,4I$TNI BU(»P $IN PA*?T CONTROL WORD 

WH R F (P to<»i * <K Ne , c * e r w wANr> »Dc 

ir T,3($IN)»X«lO' .ZFPC.CR 



04400000 
0 45 00000 



04600000 
0 <> 7 0 0000 



1* T»B<$ rN >, X« 2 g S Nr g Rff ^T H C N THIS M A DATA W PRP 

$4«C(tI N) 

■ 1 6 V g 



04800000 
0 4 000000 



L 

-trr 

INTIL (BCT,$6),0r 

s«m: — >imsf 



05000000 
05100000 



05200000 
0 5 300000 



-TT — 7^ «; 

3 A 5 6 

3— 5 5- 

3 4 5 6 

-5 >¥ ?! 

i» 4 



SRL 

-t«- 

LA 
?LS 6 



$5,26 

H- »f $ 9) t PQ ^ ^ y O Ol O* i TH g N — S TO g PWOCFSSIW THIS W O W O 



05400000 
0 55 0000 0- 



£6,1 



05600000 
05700000 



A 

EN D I P 



TC *5»MC VG68TPU5) 

-STC $5, 0 ( »3,>11 > 

$3,CHAPwir5T 



05800000 
05 0 00000 



06000000 
0 6 100000 



ENDOn 



06200000 



9- 



OC OBJECT CODE 



ADf)R 1 A00R2 ST>»7 SOURCe STATEf«NT 



ASM H V 02 05.«9 02/21/72 



__ — * o »acco o o 

3 * FUNCTION — TO FORMAT THg INPUT HCVG NFSSAGE DATA IMTO THE CORRECT ♦ C«3C0«aO 



fo e eic ponw* ih the output murrcR area 



» 0«*flCO00 



■5 * 

-6-* 1 W WT S 

7 * 

-r-* 



9^R1 F OIWS to DOUOIC WORD ■ *DOR IWPUT DATA 



A DOR OUTPUT BUFFER 



* 00500000 

* o a» o oo oo 

* 00700000 

* O OR OCO C O 
00900000 

— aoo oo o o 

OrlCCOOO 

01 -WiA CC 

Ct-HEACC 
>a -4 <E A CC 



9 ♦-r- 

TC-*" 

11 SCCWOHCF HEAOC RET»YES 
IZ^SeCWO HCf C fff CT 



trutymjo 

000000 47F0 POOC 



OOCX 



13* 



B 

-oc- 



I2<0,15» . 
At 1(7} ,CL7'S 



ROUTINE ENTRY POINT REQUIRED IN REGIS 
CO W O H Cf * 



uuou of vote r-o o' " 

0000 10 ■^5E0 ^06* 

ooooi'" c2C3r"6?6r4C8r 
')00C60 ^8E0 oo-'^': 

oo ' nu&4 vaw. "or^ : — 

O00068 07F= 

00006*' "SOPO. "^OO* 
tTODOTZ 1=^^ ~ " " ""■ 

0000001* 



-otrctJC- 

0CC6A 



16+ 



PROVIDES ROUTINE NAME IN FORMATED DUN I 
-^ AVES RE G ISTERS rOP CALII NC ROUTI N E 



01 - H6 A 0C 

Cl-HEACC 
>01»H 6A CC 



B4L 

-ee— 



14, I05(0tl5( 

0 0002000 * ♦ F' 0 * f OCLO* SCOWOHCr * 



oc c o» 
occcc 



i9* 

-rtrr- 

21+ 

25* 



L 

-tn- 

BR 

-ST- 
ST 



13,4(0,13) . 
14,12(13) . 
0 .12,20( 1S > 



»=n.LS SAVE WITH CSECT NAME 
♦♦ PROVIOES A RESTOR E Or REGISTERS A ND 



RESTORES ALL REGISTERS 
FXCCPT RCOISTCR 1 5 




O OCO - r 
0CCC8 



14 . RET 

13,^(0,14) p 
14,8(0,13) « 



URN TO CALLER WITH 8 Rf CSECT NAME) 

STOR E S OLD SAVE AREA ADDRESS IN NEW Afl &A 



STORES NEW SAVE AREA ADDRESS IN OLD 
LOADS N C W GAVE AREA A OO(\ESS IH R6C13 - — 



USING SCawOHCF+20 , 13 



ESTAPLIS M CS RE013 A S T >> € OASC REGISTER 



Cl-HEACC 

■ ■ W V U 

>C1-HE*CC 



GOES THRU RE6IST8? EQUATE "NLT ONCE 



00000001 



OOOQOO n 

0000005 
" '.JUOOQOTt^" 

■"r ■-•00 



2 8*>C 
29*$ 1 



31+*3 



-rotr 

ECU 

go u 

EOU 

EOU 

-fotr 

EOU 

-«otr 

EOU 

-^o«- 



Oe EGOAT 

02-ECU/T 



C2-EC<i/lT 
Oa - E C UAT 
02 -ECLAT 

C2-ECt<lT 



•TKnTOTTTTTrr 
0000000° 

000000 
"DX) 0000X7'^ 

CuOOOO 



32* »4 
33-f $5 
3 A»*6 
35**7 



T H ESE SUB S TITUTES A !> C U SED A S- - 
PEGISTER NUMBPRS the CR05S-REPERENCF 



37+$<3 



TO B IE W HL PR OVIOC A LIST Or m t mr 
F4CH REGISTER WAS USED 



02 EtUAT 
C2-ECUAT 
< a -E <t A^T 
C2-CCLAT 

Ca -ECLAT 
0a" 6C UAT 



00000 0 0 ' 

0000000'= 
" 0OOOU'".'O" 

0000000? 
" QOO00U04' 

OOOOOOOA 



3e*»i o 

39*$11 



»0»)12 
41*$13 
4 g »>14 - 
43*»15 



»4 » F PHe 
454F PR2 
4»* F PR» 



9 

EOU 11 

-«ttJ 12^- 

EQU 13 

-eett 

EOU 15 
0— 



Q2-ECCAT 
CB- eCfc A T 



47+FPR6 



EOU 
-fOtJ- 
EQU 



Ce-ECUAT 
0a - 6 t U A T 
C2-ECUAT 





Lnc OBJPCT cone 


4R0RI A00R2 ST»«T SOURCE STATEMENT 




ASM H V 02 05. C9 02/21/72 




















Ol-HEACC 

OfHEACC 






53+«,*« CONTROL SECTION * 




Ct-HEACC 

Ot-HIACC 






— 34»*,** seoweHCP 


**r* : 


01-HE«CC 

a-HEiACC 



< 



CO 

a 

3 

W 
t— ' 

n> 

P 

!3 
Oq 
fS 

OQ 

C 
CO 



00 0< 001 4 

0000004R 

00000080 
U000U04U 
'^C 000008 
U00U0U04 
00000 002 
OOOOOOTt- 

000000 



OUOOU ' UO 
OOOOOOOf" 

(.'oooo n 

000000 



58 RMARG 

5 9 L I *A W G 

60 NCCL 

61 N UK — — 

62 IMOCW 

as g p N C W — 

64 EMSCW 

69 S Cru 

66 LCCW 

6 T VCW 

68 COf'MAND 

6 9 wg ? we 



EOU 

-eo«- 

EOU 
EOU 
EOU 
EOU 



10 



EOU 

-wtr 

7C STRTBLKK EOU 
T l STC PBtN K S OU 



72 

-Irt 

X«80» 

X«08« 

X«02* 
X * Ol* 

X»30« 
10 * 
X'OO* 

x 'oe* 



NO, COLUMNS TO RIGHT OF DISPLAY 
N O* COLU M NS TO LZfJ OF Dl SPLAV 



NO. COLUNNS/LINE IN DISPLAY 
N 0> LI N ES IN OUT P UT DISPLAY 



CtZOCOCO 
C13CC 0 C0 



ClAOCOCC 
C15O CO C0 



•• INSERT WEMOR OEVIDE 
WW E ND or H C5SAGE 



Ct60CO00 
M 7060CC 



ERASE MEMORY SUBSECTION 
STAPT SMALL C H ARACT E RS 



START LARGE CHARACTERS 
STA R T VECTORS 



COMMAND WORD 
N O MC M O R Y AOOR 
START BLINK 
STO P PL INK 



OtSOCOCO 
C2O0COO0 

aio co o o 



I N C R E M E N T 



o e 3 0< ooo - 



72 $!N 
T 3 *rf ^) t 



EQU 
-EW 



SlO 



CZ40C000 

oasococo 



>»* OlS P t I N TO B UFFER O F L A ST LI N 



C260COO0 
CZ7CCOC0 



omjUTc S8A I oono 

00007P 59R1 OOOA 
OOTJOT" l«2 2 



000 00 

00CC4 



76 
-77- 



L 

-8R- 



> ! Wt O< » 1 1 

>Y M AXf ^Y M flX 



»«> A( — TN P UT DATA ) 



ca<ocaoc 



A( OUTPUT BUFFER ) 



3C0COC0 
0310COOO - 



O 

0 
I-" 

I 



0000 ■"' 47P0 "07? 
0tl'^"ff7 ~ 



^ 

0CC86 1 80* 



ei^wii o eos — >»- 



00004 



82 



WH ILE « ' ^» 0 UlN)> NE »0 * C0 MM A N Pt» ' 3 f* F-P«» FI R ST C M O WORD 

A W210003 

-0+1 

tIN,4l $IN) 



C330C&C0 



-«3 

84* W2 10003 

-B^ 

86* 



LA 
g N BO P 

DS 
-€tt- 



Ol-VHILE »ld 

01 - VHI L i JU 

03^00000 *t 

Qa § 0COC 0 



000'->H' 4770 •^06" 



- ooooo 



CM 

Of <I N I>0 



CO M MAND 



00082 



8C 



7, Ml 1000 3 



I 



U1 



OOO'O'^ A 7'' 0 ■^ l ' i6 
OOOOo? 



0 016A 



88 



OOOOQ? 9501 i003 
UUUO^'b 4^HU "liib 



00003 



O C lM 



00009* 9504 nOOT^ 
00009e' 4770 '^096 



300^- 



OOOAA 



-t — 

I 90+H110005 

-t 

? 92* 

- — t ^ynf 

2 94 

■ 99*— 

3 96* 



WHItE (T ,3{$IN) ,5('0'*EMSCW*rOMCWf ZEROlfOO 
e W 21000 5 



LOOP THROUGH DATA C3 7CCOC0 



OS 



OH 



CLI 
-B«- 



g»3t • lNt> N E f O » VC W» TH CN T H If . IS N OT - A START V E C TOR 



3{ iIN»,0-»-VCW 
6f IF10006 



B,3($IN»»E0,0*SCCW, THEN SUE - SMALL NOW 
CLI 9(<t N lt0 t SCC -W 



i^C 



7» IF20007 



Ol-hHlLE 

-0»»00000 

01-IF 

Ol - IF 

C390000( 

oi-n 

oi-n 



s co w one F- 



LOT PPJC'T C'l^E 
OnoOA? 9201 "l"^ 
Q000 46 *7P0 r;0A2 



3 STCT SOURCE STAT P»1ENT 



ASM H V 02 05.09 02/21/72 



OOIRP 



0C0B6 



3 97 

— 

3 99* 



l«VI 
fr tS -E 



CHARMIDT«3, 1 



04000000 
0 4 10 00 0 0 



— riTjrnjrr- 

OOOOAP 4770 

— THJi 



-3 ieO» f ^2 Q Q 0 7 

3 1 01 

4 — t02r*- 



IF20008 

— oi- — m- 



Ol-ELSE 
OI - ELSfc 



fl003 
OCA? 



IF B,3f fINJ.EO.OHCCM.THEN SIZE 
eH 3i itNKO » LOG t< 



URGE NOW 



0GC«6 



-ctjo- 



4 

-4- 
105 



103 + 
104 



BC 



7, I F30009 
ChAr x IOT » 3t 2 



SIZE N OW - LARG E - 



04200000 

Ol^IF 

Ol-IF 
043 00 



EWIF 



-1 1 0 a*T » 5000 ^ 



-e> — ew- 



04400000 
0 | i SWOI | g 



Trnf) up, 



OCOO*^* 47FC 
n ogo^ " - ^ — " 



OOO'i 

ni3' 



00CC4 



0C1/.E 



2 

?- 

2 

— ?- 



107 

10a»l P 20008 

1 09 

-ttt 



ENOrF 



-es — e«- 



LA »IN,4{$IN) BUMP »IV PAST CnNTPOL MfKO 
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STRUCTURING INTERPRETER FOR A MACRO 
PROCESSING LANGUAGE EXTENSION (SIMPLE) 

1. PURPOSE AND SCOPE 

It is the purpose of SIMPLE to reduce the CPU and elapsed time required to 
expand the HLAL macros, and to extend the capabilities of the present HLAL 
macros. 

SIMPLE is a pre-assembly processor which expands the HLAL statements 
before they are passed to the Assembler, thus eliminating many accesses of the 
macro library by the Assembler. 

SIMPLE also creates a structured source listing sim nlta^p eouslv with the 
expansion of the HLAL statements . 

The table below is a list of m^acros supported by the basic SIMPLE pre-as 
semble processor. 



BGNCASE 


ENDSRCH 


BGNSEG 


ER RETURN 


BGNWHILE 


ERREXIT 


BSEG 


ERRMSG 


CASE 


ESEG 


DO 


EXITIF 


ELSE 


IF 


ENDALL 


INSERT 


ENDCASE 


ORELSE 


ENDDO 


STRTSRCH 


ENDIF 


UNTIL 


ENDLOOP 


WHILE 


ENDSEG 





Approval 


Approval 
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2. BACKWARD COMPATIBILITY 

All HLAL statements will expand via SIMPLE in exactly the same manner 
as they would via the macro processor, with these exceptions . 

a. The Combination Statement 

UNTIL (A), AND 
WHILE (B), DO 
X 

ENDDO 



is expanded by the macro processor as. 




NOTE: This logic is the same as 

UNTIL (A), OR^ 
WHILE (B), DO 



But will be expanded by SIMPLE as. 
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b. The older 'T' type macro is not supported, but the newer, more 
commonly used 'T' type is supporte?d„ 

i.e., OLD - IF T, MUD, EQ, '3', THEN 

NEW - IF T, MUD, X'3', ZERO, THEN 

c. The default registers used in 'IF' type statements are now $0-$15 
and FPR0-FPR6 rather than 0-15 and 0,2, 4,6. 

(e.g., L $0, X rather than L 0, X. ) 

This notation may be changed via the REG control card (Section 5. 2), 
Ecjuates for the $ ^nd FPR must be furnished by the programmer . 

(e.g., HEADC macro.) 

d. If the macros are used incorrectly, the code generated by the 
HLAL Interpreter Extension may not coincide with the expansion 
of the HLAL macros. The pre-proces sor will attempt to create 
executable structured code by making logical assumptions such 
as the generation of needed endings (ENDIF, ENDDO, ENDSRCH, 
ENDLOOP) and the rejection of macros that are out of sequence. 
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3. 



ADDED CAPABILITIES 



3. 1 USE OF PARENTHESIS 

a. Parenthesis may be us ed or omitted when coding the IF macro. 
e. g. , 



IF (F, A, GT, B),THEN or 
IF F, A,GT, B,THEN 



Parenthesis may be used to form any legal chain of Boolean 
operations using the IF, WHILE, UNTIL, STRTSRCH macros. 

(e. g. , the operation (AB) + ((C + D)E) could be coded. 



IF (A, AND 
IF B), OR 
IF ((C,OR 
IF D),AND 
IF E),THEN 
X 

ENDIF 




Since parenthesis grouping is not supported via the current macro 
processing. Boolean operations have always expanded in a 
sequential manner. 

e.g., AB + CD is expanded as A(B + CD) 

"^^^ logical expansion would be (AB) + (CD). In order to maintain 
backward compatibility, SIMPLE will expand operations without 
parenthesis in a sequential mode unless logical is specified on an 
HLALEVEL control card (Section 5. 3). 



IBM 
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3. 2 CONDITION CODES AND MASKS 

For those occasions when the standard set of HLAL condition code mne - 
monies (EQ, LE, , , etc. , ) do not describe the condition to be tested, a complete 
set of cond ition code^ and ma sk mnemonica has be en added. T hey are MOO thru 
M15 arlTccToT^Cl. "cC27''OC?r " ~" ^ ' ~'~"*~" * 

e.g.. The statement IF ,IS, M04), THEN 
Expands to BC 11, FALSELAB 

3.3 ERROR PROCESSING STATEMENTS 

One additional parameter has been added to the three error proces sing 
macros ERRMSG, ERRENTER, and ERRETURN. Thi^ al lows the^prog rammer 
to create more than one entry ooin^ for error handling^. The new parameter 
must begin with the character $, and is of the form $X, where X is the name of an 
additional error entry point (maximum lentgh of X characters). 

The new macro formats and expansions are: 

ERRENTER $A, $X 

+ B ERREX$X (if generated) 

+ERXT$A DS OH 

ERRMSG $A,$B,$X 
+ERXT$A BAL $B,ERREX$X 

ERRETURN $X 
+ERREX$X DS OH 



NOTE: 



All other rules 
unchained. 



previously established for these macros remain 
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Example: 

Count a million one dollar bills from an input file. 



WHILE 

ERREXIT 
GET 

ERREXIT 
ERREXIT 
ERREXIT 
LA 

BCTR 
ENDDO 
RETURN 



(F, (COUNT), LT, MILLION), DO 
A, DOLLAR 

IF, B, DENOMINATION, GT, ONEDOLLAR, TOO BIG 
IF, TYPE, EQ, SILVERCERTIFICATE, RECALL 
IF, PICTURE, NE, WASHINGTON, COUNTERFEIT 
COUNT, l(COUNT) 
DOLLARSLEFT, 0 



ERROR PROCESSING 



ERRENTER RECALL 
CALL 



_ RAREBILLCOLLECTOR 

ERRENTER COUNTERFEIT 

CALL TREASURYAGENT 
ERRETURN 

DISABLE INPUT 
RETURN 



ERRMSG 
DC 

ERRMSG 

"be 



OUTOFMONEY, $MSGEXIT 

CLSO'FILE HAS LESS THAN ONE MILLION DOLLARS' 

TOOBIG, $MSGEXIT 

CLSO'WRONG SIZE BILLS IN FILE' 



L-#ER RETURN $MSGEXIT 



MVC 
PUT 

RETURN 



MSGAREA(50), 0($0) 
OUT.MSGAREA 
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3.4 CASE/BGNCASE/ENDCASE 
3. 4. 1 CASE 

The CASE macro has the capability of having inline segments. This modifi- 
cation is invoked by the keyword BEGIN which causes a return label to be gener- 
rated. The BGNCASE and ENDCASE macros have been added to generate both 
the inline segments and the return label. 

3.4.2 BGNCASE and ENDCASE 

These macros are required for the extended CASE capability. The syntax 
for these macros is: 

sename 
nerate - 
S OH 

ALL J 
casename j 
nerate - 

S OH - for the ALL option 

genlabel for the "casename" option 



Example: CASE $5, BEGIN, BT=(X, Y, Z) 

+ LA 14, GENLABOl 

H B ^:^+4($5) 

H B X 

+ B Y 

+ B Z 

+ BGNSEG X 

+X DS OH 



IBM . 



a. BGNCASE ca 
which will ge 
+casename D 

b. ENDCASE | 

which will ge 
+genlabel D 

+ B 



ENDSEG X 

+ BR $14 

BGNCASE Y 

+Y DS OH 
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ENDCASE Y 

+ B GENLAGOl 

BGNCASE Z 

+Z DS OH 



ENDCASE ALL 
+GENLAB 1 DS OH 

3. 5 INSERT, BSEG, And ESEG 

These macros allow the user to segment his code, creating a page effect in 
his structured source listing. The conditional assembly instructions, AGO and 
ANOP, are employed to achieve this effect. The syntax for these macros is: 

a. INSERT segname 
which will generate - 

+ AGO .segnamel 

+. segname2 ANOP 

b. BSEG segname 
which will generate - 

+ AGO . segnameS 

+, segnamel ANOP 

c. ESEG segname 
which will generate - 

+ AGO . segnameZ 

+. segname3 ANOP 

Example: Listing page 1 - 



+ 



IF A, THEN 
INSERT CODE 
AGO .CODEl 



JIIMtI 
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+. CODE2 ANOP 
ENDIF 



Example: Listing page 2 - 



+ 

+, CODEl 



BSEG 

AGO 

ANOP 



CODE 
. CODES 



+ 

+. CODES 



ESEG 

AGO 

ANOP 



CODE 
. CODE 2 



END 



NOTE: 



The segmented code will be assembled inline 
separately in the structured source listing. 



but will 



appear 
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3.6 ENDAL L 

The EN DA LL statement generates, without printing on the structured listings, 
closings (ENDIF's, ENDDO's, etc. ) for previous IF' s, WHILE'S, etc. 

The statement format is: 

ENDALL X where X is the number of logic levels 

to close. (X = blank, closes all levels. ) 

Example: 

IF (A), THEN 

WHILE (B),DO 

UNTIL (C),DO 

IF fD),THEN 
X 

ENDALL 3 (generates ENDIF,ENDDO,ENDDO) 
WHILE (E), DO 

IF (F),THEN 
X 

ENDALL (generates ENDIF,EDDDO,ENDIF) 
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4. PROCESSING ASSEMBLER CONTROL INSTRUCTIONS 



The ICTL statement is always honored if it is the first statement in the input 
stream. At the user's option the SPACE, TITLE, and EJECT assembler instruc- 
tions will also be honored. If they are honored, then spacing or page ejection 
will occur in the structured data set# and the words SPACE or EJECT will not 
appear. (See Section 5. 1. ) 
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5. SIMPLE CONTROL STATEMENTS 

SIMPLE control statements may be placed anywhere in the input stream. 
They are of the format *) OPERATOR OPERAND and consist of several com- 
mands. 

5. 1 PRINTER CONTROL FOR THE STRUCTURED DATA SET 

*) SPACE 

— . ^ ( OFF j 

E^X {^} 

If ON is selected, the SPACE, EJECT, or TITLE cards will be honored for 
the structured listing: pthf^y^ yi^ise. these cards will be ign ored. 

*) structur|||^| 

when the structured listing becomes so deeply nested that one statement 
will not fit on one print line (120 characters) the remainder or overflow will be 
printed, right adjusted, on the next line* If the overflow becomes too large, the 
structured listing may become unreadable. STRUCTUR STOP causes the struc- 
ture level to be frozen at its current level. The level continues to be maintained 
internally and structuring will resume at the proper level when the STRUCTUR 
START command is received. 

5.2 REGISTER CONTROL 

The user may define, for use by the SIMPLE macro processor, symbolic 
names for any of his general purpose or floating point registers. A prefix sym- 
bol (s) may be specified for any or all fixed-point or floating-point registers. It 
will be the user's responsibility to set up the equates needed for these symbolic 
parameters. 

Operator = REG 

Operands = 0 - 15, FPRO-» FPR6, FIX, FLOAT, 

where: 1. 0 15 is one of the l6 general purpose registers 

2. FPRO FPR6 is one of the 4 floating-point registers 
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FIX specifies a prefix for all 16 general purpose registers 
FLOAT specifies a prefix for all floating-point registers 



Examples: 



*) REG l = ONE, 2 = TWO, 3 = THREE 

REG FIX=GPR, FLOAT=FP 
^) REG 0 = R1, 1=F1, FL0AT=P01NT 

Example 1 equates fixed-point registers 1,2,3 to 

ONE, TWO, THREE respectively. 

Example 2 equates prefix GPR to all 16 fixed -point 

registers as follows: GPRO, GPRl, GPR2, . . . . . 

GPR 15 and FP is prefixed to all floating-point registers 

Example 3 is a combination of examples 1 and 2. 

NOTE: The d ef ^jiilt valae^ are $ 1 , $2, $3... $ 1 5^ and FPRO, FPR2, FPR4, FPR6. 

5.3 "IF- TYPE" MACRO PROCESSING 

The HLALiEVEL macro control card allows the user to specify whether he 
wants SIMPLE to perform logical or sequential processing on the "IF-TYPE" 
macros (IF, EXITIF, WHILE, UNTIL, and STRTSRCH) 

Operator = HLALEVEL 




where: SEQ = sequential processing 
LOG = logical processing 



"IF-TYPE" statement AB + CD would be handled one of two 
ways depending on whether the user specified LOG or SEQ. 



if SEQ 
if LOG 



AB+CD=A(B + CD) 
AB+CP=(AB) + (CD) 



NOTE: Default is SEQ. 



